# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207425950 0
# Node ID 2da1f95ea11c58c6270a9f69eb257f2d21595769
# Parent  ac376173ee3dc72b444cf3e7456b22666ac13f14
(mm-inline-media-tests): Add entry for x-diff.

diff -r ac376173ee3d -r 2da1f95ea11c lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Apr 05 20:02:32 2008 +0000
+++ b/lisp/gnus/ChangeLog	Sat Apr 05 20:05:50 2008 +0000
@@ -1,5 +1,7 @@
 2008-04-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* mm-decode.el (mm-inline-media-tests): Add entry for x-diff.
+
 	* nnweb.el (nnweb-init): Avoid nn-with-unibyte.
 
 2008-04-03  Stefan Monnier  <monnier@iro.umontreal.ca>
diff -r ac376173ee3d -r 2da1f95ea11c lisp/gnus/mm-decode.el
--- a/lisp/gnus/mm-decode.el	Sat Apr 05 20:02:32 2008 +0000
+++ b/lisp/gnus/mm-decode.el	Sat Apr 05 20:05:50 2008 +0000
@@ -235,6 +235,9 @@
        ;; 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 @@
       (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? "