From 95e4cc854b04f98815f572218df0f93eebf7e13a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 13 Dec 2010 17:12:01 +0200 Subject: Fix bug #7589 with EOL format in smtpmail's queued mail. mail/smtpmail.el (smtpmail-send-it): Write queued mail body with Unix EOLs. --- lisp/mail/smtpmail.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'lisp/mail') 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) -- cgit v1.2.1