X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=40cf74e8f110f447b9196bd709c12adfa191e27d;hb=c62a0d016f79d6a55d62352029e74d09d4a2f438;hp=6c498ab1b8cff9cd53bb8620fb34b2448b7cd81b;hpb=cb8418784c21155ffea79cce8409a7ea3c546937;p=notmuch

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 6c498ab1..40cf74e8 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -306,10 +306,11 @@ message at DEPTH in the current thread."
 		   "Filename to save as: "
 		   (or mailcap-download-directory "~/")
 		   nil nil
-		   filename))
-	    (require-final-newline nil)
-	    (coding-system-for-write 'no-conversion))
-	(write-region (point-min) (point-max) file)))))
+		   filename)))
+	;; Don't re-compress .gz & al.  Arguably we should make
+	;; `file-name-handler-alist' nil, but that would chop
+	;; ange-ftp, which is reasonable to use here.
+	(mm-write-region (point-min) (point-max) file nil nil nil 'no-conversion t)))))
 
 (defun notmuch-show-mm-display-part-inline (msg part content-type content)
   "Use the mm-decode/mm-view functions to display a part in the