summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2010-07-16 12:59:37 +0300
committerEli Zaretskii <eliz@gnu.org>2010-07-16 12:59:37 +0300
commit134a027f69b980b37204a93775116949c40166d1 (patch)
tree6883ef0ff9c00b56c83748161226a79821dfe752 /lisp/mail
parent243881ed1372458823182c219d71c43e9d174ddc (diff)
downloademacs-134a027f69b980b37204a93775116949c40166d1.tar.gz
mail/rmailmm.el (rmail-mime-save): Make the temp buffer unibyte,
so compressed attachments are not compressed again. See http://lists.gnu.org/archive/html/emacs-devel/2010-07/msg00599.html
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/rmailmm.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index 415bc20cf50..e8ca11ee349 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -112,6 +112,10 @@ automatically display the image in the buffer."
(file-name-as-directory filename))))
(with-temp-buffer
(set-buffer-file-coding-system 'no-conversion)
+ ;; Needed e.g. by jka-compr, so if the attachment is a compressed
+ ;; file, the magic signature compares equal with the unibyte
+ ;; signature string recorded in jka-compr-compression-info-list.
+ (set-buffer-multibyte nil)
(insert data)
(write-region nil nil filename nil nil nil t))))