diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-05 20:05:50 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-05 20:05:50 +0000 |
| commit | 7ab0253ddb614d46a54f7d858c620c11ea81b2e0 (patch) | |
| tree | cad0192273cbc6a260111c0ac5b9b7a531716eac /lisp/gnus/mm-decode.el | |
| parent | 3b728e953fb712516c022ee680ef8b8988d59078 (diff) | |
| download | emacs-7ab0253ddb614d46a54f7d858c620c11ea81b2e0.tar.gz | |
(mm-inline-media-tests): Add entry for x-diff.
Diffstat (limited to 'lisp/gnus/mm-decode.el')
| -rw-r--r-- | lisp/gnus/mm-decode.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 1125492fc7e..a0b55421428 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -235,6 +235,9 @@ before the external MIME handler is invoked." ;; makes it possible to install another package which provides an ;; alternative implementation of diff-mode. --Stef (fboundp 'diff-mode))) + ;; In case mime.types uses x-diff (as does Debian's mime-support-3.40). + ("text/x-diff" mm-display-patch-inline + (lambda (handle) (fboundp 'diff-mode))) ("application/emacs-lisp" mm-display-elisp-inline identity) ("application/x-emacs-lisp" mm-display-elisp-inline identity) ("text/dns" mm-display-dns-inline identity) @@ -1233,10 +1236,9 @@ PROMPT overrides the default one used to ask user for a file name." (setq filename (gnus-map-function mm-file-name-rewrite-functions (file-name-nondirectory filename)))) (setq file - (mm-with-multibyte - (read-file-name (or prompt "Save MIME part to: ") - (or mm-default-directory default-directory) - nil nil (or filename "")))) + (read-file-name (or prompt "Save MIME part to: ") + (or mm-default-directory default-directory) + nil nil (or filename ""))) (setq mm-default-directory (file-name-directory file)) (and (or (not (file-exists-p file)) (yes-or-no-p (format "File %s already exists; overwrite? " |