Mercurial > emacs
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)) |