diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2010-12-13 17:12:01 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2010-12-13 17:12:01 +0200 |
| commit | 95e4cc854b04f98815f572218df0f93eebf7e13a (patch) | |
| tree | d6051f31223c464e99526672e27a41ebf71c93c5 | |
| parent | 11aad4e9f9f54ce8e9ecc66347e512b20a3cdf39 (diff) | |
| download | emacs-95e4cc854b04f98815f572218df0f93eebf7e13a.tar.gz | |
Fix bug #7589 with EOL format in smtpmail's queued mail.
mail/smtpmail.el (smtpmail-send-it): Write queued mail body with Unix EOLs.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/smtpmail.el | 9 |
2 files changed, 13 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd5d5576867..30564b9b790 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-12-13 Eli Zaretskii <eliz@gnu.org> + + * mail/smtpmail.el (smtpmail-send-it): Write queued mail body with + Unix EOLs. (Bug#7589) + 2010-12-12 Eli Zaretskii <eliz@gnu.org> * subr.el (posn-col-row): Evaluate header-line-format in the diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 62bfbb740c4..7aed6a549ef 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -392,7 +392,14 @@ The list is in preference order.") (make-directory smtpmail-queue-dir t)) (with-current-buffer buffer-data (erase-buffer) - (set-buffer-file-coding-system smtpmail-code-conv-from nil t) + (set-buffer-file-coding-system + ;; We will be reading the file with no-conversion in + ;; smtpmail-send-queued-mail below, so write it out + ;; with Unix EOLs. + (coding-system-change-eol-conversion + (or smtpmail-code-conv-from 'undecided) + 'unix) + nil t) (insert-buffer-substring tembuf) (write-file file-data) (set-buffer buffer-elisp) |