comparison lisp/gnus/mm-uu.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 417b1e4d63cd
children f60dc8d74215
comparison
equal deleted inserted replaced
112389:75fb060ecbc3 112390:1b25cd6a6e36
184 (LaTeX 184 (LaTeX
185 "^\\([\\\\%][^\n]+\n\\)*\\\\documentclass.*[[{%]" 185 "^\\([\\\\%][^\n]+\n\\)*\\\\documentclass.*[[{%]"
186 "^\\\\end{document}" 186 "^\\\\end{document}"
187 mm-uu-latex-extract 187 mm-uu-latex-extract
188 nil 188 nil
189 mm-uu-latex-test)) 189 mm-uu-latex-test)
190 (org-src-code-block
191 "^[ \t]*#\\+begin_"
192 "^[ \t]*#\\+end_"
193 mm-uu-org-src-code-block-extract)
194 (org-meta-line
195 "^[ \t]*#\\+[[:alpha:]]+: "
196 "$"
197 mm-uu-org-src-code-block-extract))
190 "A list of specifications for non-MIME attachments. 198 "A list of specifications for non-MIME attachments.
191 Each element consist of the following entries: label, 199 Each element consist of the following entries: label,
192 start-regexp, end-regexp, extract-function, test-function. 200 start-regexp, end-regexp, extract-function, test-function.
193 201
194 After modifying this list you must run \\[mm-uu-configure]. 202 After modifying this list you must run \\[mm-uu-configure].
380 (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) 388 (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
381 '("application/emacs-lisp" (charset . gnus-decoded)) 389 '("application/emacs-lisp" (charset . gnus-decoded))
382 nil nil 390 nil nil
383 (list mm-dissect-disposition 391 (list mm-dissect-disposition
384 (cons 'filename file-name)))) 392 (cons 'filename file-name))))
393
394 (defun mm-uu-org-src-code-block-extract ()
395 (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
396 '("text/org")))
385 397
386 (defvar gnus-newsgroup-name) 398 (defvar gnus-newsgroup-name)
387 399
388 (defun mm-uu-emacs-sources-test () 400 (defun mm-uu-emacs-sources-test ()
389 (setq file-name (match-string 1)) 401 (setq file-name (match-string 1))