comparison lisp/gnus/mm-decode.el @ 112390:1b25cd6a6e36

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.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 20 Jan 2011 23:43:27 +0000
parents 61f7601898b1
children 555faf6e40d0
comparison
equal deleted inserted replaced
112389:75fb060ecbc3 112390:1b25cd6a6e36
235 ;; In case mime.types uses x-diff (as does Debian's mime-support-3.40). 235 ;; In case mime.types uses x-diff (as does Debian's mime-support-3.40).
236 ("text/x-diff" mm-display-patch-inline 236 ("text/x-diff" mm-display-patch-inline
237 (lambda (handle) (fboundp 'diff-mode))) 237 (lambda (handle) (fboundp 'diff-mode)))
238 ("application/emacs-lisp" mm-display-elisp-inline identity) 238 ("application/emacs-lisp" mm-display-elisp-inline identity)
239 ("application/x-emacs-lisp" mm-display-elisp-inline identity) 239 ("application/x-emacs-lisp" mm-display-elisp-inline identity)
240 ("application/x-shellscript" mm-display-shell-script-inline identity)
241 ("application/x-sh" mm-display-shell-script-inline identity)
242 ("text/x-sh" mm-display-shell-script-inline identity)
240 ("text/dns" mm-display-dns-inline identity) 243 ("text/dns" mm-display-dns-inline identity)
244 ("text/org" mm-display-org-inline identity)
241 ("text/html" 245 ("text/html"
242 mm-inline-text-html 246 mm-inline-text-html
243 (lambda (handle) 247 (lambda (handle)
244 mm-text-html-renderer)) 248 mm-text-html-renderer))
245 ("text/x-vcard" 249 ("text/x-vcard"
311 "application/emacs-lisp" "application/x-emacs-lisp" 315 "application/emacs-lisp" "application/x-emacs-lisp"
312 "application/x-pkcs7-signature" 316 "application/x-pkcs7-signature"
313 "application/pkcs7-signature" "application/x-pkcs7-mime" 317 "application/pkcs7-signature" "application/x-pkcs7-mime"
314 "application/pkcs7-mime" 318 "application/pkcs7-mime"
315 ;; Mutt still uses this even though it has already been withdrawn. 319 ;; Mutt still uses this even though it has already been withdrawn.
316 "application/pgp\\'") 320 "application/pgp\\'"
321 "text/org")
317 "A list of MIME types to be displayed automatically." 322 "A list of MIME types to be displayed automatically."
318 :type '(repeat regexp) 323 :type '(repeat regexp)
319 :group 'mime-display) 324 :group 'mime-display)
320 325
321 (defcustom mm-attachment-override-types '("text/x-vcard" 326 (defcustom mm-attachment-override-types '("text/x-vcard"