[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99928: mail/rmailmm.el (rmail-mime-save): Make the temp buffer unibyte,

[Eli Zaretskii]

------------------------------------------------------------
revno: 99928
committer: Eli Zaretskii <address@hidden>
branch nick: emacs-23
timestamp: Fri 2010-07-16 12:59:37 +0300
message:
   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
modified:
  lisp/ChangeLog
  lisp/mail/rmailmm.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-14 17:53:42 +0000
+++ b/lisp/ChangeLog    2010-07-16 09:59:37 +0000
@@ -1,3 +1,8 @@
+2010-07-16  Eli Zaretskii  <address@hidden>
+
+       * mail/rmailmm.el (rmail-mime-save): Make the temp buffer
+       unibyte, so compressed attachments are not compressed again.
+
 2010-07-14  Jan Djärv  <address@hidden>
 
        * xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127

=== modified file 'lisp/mail/rmailmm.el'
--- a/lisp/mail/rmailmm.el      2010-01-22 16:43:54 +0000
+++ b/lisp/mail/rmailmm.el      2010-07-16 09:59:37 +0000
@@ -112,6 +112,10 @@
                        (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))))