diff options
| author | Julien Danjou <julien@danjou.info> | 2011-01-20 23:43:27 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-01-20 23:43:27 +0000 |
| commit | 6e3165fb24673920b31d67a61ee8e8a2e0b25eec (patch) | |
| tree | 12d262cf396635e9f3f75f798a0df124107ad2fd /lisp/gnus/mm-view.el | |
| parent | 8dabbfd6325ea5b11e67fa8358625669808312dd (diff) | |
| download | emacs-6e3165fb24673920b31d67a61ee8e8a2e0b25eec.tar.gz emacs-6e3165fb24673920b31d67a61ee8e8a2e0b25eec.tar.bz2 emacs-6e3165fb24673920b31d67a61ee8e8a2e0b25eec.zip | |
mm-decode.el (mm-inline-media-tests): Add text/x-sh.
gnus-art.el (gnus-mime-inline-part): Use mm-display-inline rather than mm-insert-inline to insert inline part: this respect mm-inline-media-tests displayers.
mm-view.el (mm-display-shell-script-inline): New function.
mm-decode.el (mm-inline-media-tests): Add x-shellscript and x-sh.
mm-uu.el (mm-uu-type-alist): Add org block.
(mm-uu-org-src-code-block-extract): New function.
mm-view.el (mm-display-org-inline): New function.
mm-decode.el (mm-automatic-display): Add text/org.
mailcap.el (mailcap-mime-extensions): Add .org.
Diffstat (limited to 'lisp/gnus/mm-view.el')
| -rw-r--r-- | lisp/gnus/mm-view.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 61d5b32b2c7..fa8c94c36b7 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -632,6 +632,14 @@ (defun mm-display-dns-inline (handle) (mm-display-inline-fontify handle 'dns-mode)) +(defun mm-display-org-inline (handle) + "Show an Org mode text from HANDLE inline." + (mm-display-inline-fontify handle 'org-mode)) + +(defun mm-display-shell-script-inline (handle) + "Show an shell script from HANDLE inline." + (mm-display-inline-fontify handle 'shell-script-mode)) + ;; id-signedData OBJECT IDENTIFIER ::= { iso(1) member-body(2) ;; us(840) rsadsi(113549) pkcs(1) pkcs7(7) 2 } (defvar mm-pkcs7-signed-magic |