aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2008-04-05 20:05:50 +0000
committerStefan Monnier2008-04-05 20:05:50 +0000
commit7ab0253ddb614d46a54f7d858c620c11ea81b2e0 (patch)
treecad0192273cbc6a260111c0ac5b9b7a531716eac
parent3b728e953fb712516c022ee680ef8b8988d59078 (diff)
downloademacs-7ab0253ddb614d46a54f7d858c620c11ea81b2e0.tar.gz
emacs-7ab0253ddb614d46a54f7d858c620c11ea81b2e0.zip
(mm-inline-media-tests): Add entry for x-diff.
-rw-r--r--lisp/gnus/ChangeLog2
-rw-r--r--lisp/gnus/mm-decode.el10
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 @@
12008-04-05 Stefan Monnier <monnier@iro.umontreal.ca> 12008-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
52008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> 72008-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? "