Make sure smtpmail produces valid mbox files with Unix EOLs for FCC.

 lisp/mail/smtpmail.el (smtpmail-send-it): Bind
 coding-system-for-write to *-unix, so that FCC files are kept in
 valid mbox format.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db93ab6987685e8a09a6a35f78f60530c6ad3b31..e21cf0b6bba7d64d3daa4604ce843a443a01dce7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-09  Eli Zaretskii  <eliz@gnu.org>
+
+       * mail/smtpmail.el (smtpmail-send-it): Bind
+       coding-system-for-write to *-unix, so that FCC files are kept in
+       valid mbox format.
+
 2012-03-09  Glenn Morris  <rgm@gnu.org>
 
        * files.el (dir-locals-find-file):

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 3233cff2768a431318a0a2a31b291b558edfc11d..8e96e2c94388e6a6597ad299062ccf741bb20e1c 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -324,7 +324,10 @@ The list is in preference order.")
            (if (re-search-forward "^FCC:" delimline t)
                ;; Force `mail-do-fcc' to use the encoding of the mail
                ;; buffer to encode outgoing messages on FCC files.
-               (let ((coding-system-for-write smtpmail-code-conv-from))
+               (let ((coding-system-for-write
+                      ;; mbox files must have Unix EOLs.
+                      (coding-system-change-eol-conversion
+                       smtpmail-code-conv-from 'unix)))
                  (mail-do-fcc delimline)))
            (if mail-interactive
                (with-current-buffer errbuf