diff options
| author | Stefan Monnier | 2008-04-05 20:05:50 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2008-04-05 20:05:50 +0000 |
| commit | 7ab0253ddb614d46a54f7d858c620c11ea81b2e0 (patch) | |
| tree | cad0192273cbc6a260111c0ac5b9b7a531716eac | |
| parent | 3b728e953fb712516c022ee680ef8b8988d59078 (diff) | |
| download | emacs-7ab0253ddb614d46a54f7d858c620c11ea81b2e0.tar.gz emacs-7ab0253ddb614d46a54f7d858c620c11ea81b2e0.zip | |
(mm-inline-media-tests): Add entry for x-diff.
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/mm-decode.el | 10 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 717b3bad0e2..c79753f394c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * mm-decode.el (mm-inline-media-tests): Add entry for x-diff. | ||
| 4 | |||
| 3 | * nnweb.el (nnweb-init): Avoid nn-with-unibyte. | 5 | * nnweb.el (nnweb-init): Avoid nn-with-unibyte. |
| 4 | 6 | ||
| 5 | 2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> |
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." | |||
| 235 | ;; makes it possible to install another package which provides an | 235 | ;; makes it possible to install another package which provides an |
| 236 | ;; alternative implementation of diff-mode. --Stef | 236 | ;; alternative implementation of diff-mode. --Stef |
| 237 | (fboundp 'diff-mode))) | 237 | (fboundp 'diff-mode))) |
| 238 | ;; In case mime.types uses x-diff (as does Debian's mime-support-3.40). | ||
| 239 | ("text/x-diff" mm-display-patch-inline | ||
| 240 | (lambda (handle) (fboundp 'diff-mode))) | ||
| 238 | ("application/emacs-lisp" mm-display-elisp-inline identity) | 241 | ("application/emacs-lisp" mm-display-elisp-inline identity) |
| 239 | ("application/x-emacs-lisp" mm-display-elisp-inline identity) | 242 | ("application/x-emacs-lisp" mm-display-elisp-inline identity) |
| 240 | ("text/dns" mm-display-dns-inline identity) | 243 | ("text/dns" mm-display-dns-inline identity) |
| @@ -1233,10 +1236,9 @@ PROMPT overrides the default one used to ask user for a file name." | |||
| 1233 | (setq filename (gnus-map-function mm-file-name-rewrite-functions | 1236 | (setq filename (gnus-map-function mm-file-name-rewrite-functions |
| 1234 | (file-name-nondirectory filename)))) | 1237 | (file-name-nondirectory filename)))) |
| 1235 | (setq file | 1238 | (setq file |
| 1236 | (mm-with-multibyte | 1239 | (read-file-name (or prompt "Save MIME part to: ") |
| 1237 | (read-file-name (or prompt "Save MIME part to: ") | 1240 | (or mm-default-directory default-directory) |
| 1238 | (or mm-default-directory default-directory) | 1241 | nil nil (or filename ""))) |
| 1239 | nil nil (or filename "")))) | ||
| 1240 | (setq mm-default-directory (file-name-directory file)) | 1242 | (setq mm-default-directory (file-name-directory file)) |
| 1241 | (and (or (not (file-exists-p file)) | 1243 | (and (or (not (file-exists-p file)) |
| 1242 | (yes-or-no-p (format "File %s already exists; overwrite? " | 1244 | (yes-or-no-p (format "File %s already exists; overwrite? " |