From 21f7c48293963cc16b1e68e0dae46dc96b136b28 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 10 Dec 2001 19:53:52 +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 fc847a1dc5c..cfd701f1a71 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-01 Stefan Monnier * indent.el (tab-to-tab-stop): Use delete-horizontal-space. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f57d08707e3..f3786c47cfe 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -310,7 +310,10 @@ This is relative to `smtpmail-queue-dir'.") (end-of-line) (point)))) (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