From 19a0baf79c376cee76278e29991be180695296ef Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 10 Dec 2001 19:49:32 +0000 Subject: [PATCH] (smtpmail-send-queued-mail): Insert the enqueued messages literally. --- lisp/ChangeLog | 5 +++++ lisp/mail/smtpmail.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9a01ba38fa6..40b6643c81a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-10 Eli Zaretskii + + * mail/smtpmail.el (smtpmail-send-queued-mail): Insert the + enqueued messages literally. + 2001-12-10 Noah Friedman * battery.el (battery-insert-file-contents): Obsolete function diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index ed4bd7c8ddd..a24aae74bf0 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -376,7 +376,10 @@ This is relative to `smtpmail-queue-dir'.") (while (not (eobp)) (setq file-msg (buffer-substring (point) (line-end-position))) (load file-msg) - (setq tembuf (find-file-noselect file-msg)) + ;; Insert the message literally: it is already encoded as per + ;; the MIME headers, and code conversions might guess the + ;; encoding wrongly. + (setq tembuf (find-file-noselect file-msg nil t)) (if (not (null smtpmail-recipient-address-list)) (if (not (smtpmail-via-smtp smtpmail-recipient-address-list tembuf)) -- 2.39.2