Mercurial > emacs
comparison lisp/gnus/mm-uu.el @ 112446:f60dc8d74215
mm-decode.el (mm-inline-media-tests): Change text/org to text/x-org.
mm-uu.el (mm-uu-org-src-code-block-extract): Change text/org to text/x-org.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 23 Jan 2011 11:21:04 +0000 |
| parents | 1b25cd6a6e36 |
| children |
comparison
equal
deleted
inserted
replaced
| 112445:93fcbcb698b0 | 112446:f60dc8d74215 |
|---|---|
| 391 (list mm-dissect-disposition | 391 (list mm-dissect-disposition |
| 392 (cons 'filename file-name)))) | 392 (cons 'filename file-name)))) |
| 393 | 393 |
| 394 (defun mm-uu-org-src-code-block-extract () | 394 (defun mm-uu-org-src-code-block-extract () |
| 395 (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) | 395 (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) |
| 396 '("text/org"))) | 396 '("text/x-org"))) |
| 397 | 397 |
| 398 (defvar gnus-newsgroup-name) | 398 (defvar gnus-newsgroup-name) |
| 399 | 399 |
| 400 (defun mm-uu-emacs-sources-test () | 400 (defun mm-uu-emacs-sources-test () |
| 401 (setq file-name (match-string 1)) | 401 (setq file-name (match-string 1)) |