diff options
author | Eli Zaretskii <eliz@gnu.org> | 2001-12-10 19:49:32 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2001-12-10 19:49:32 +0000 |
commit | 19a0baf79c376cee76278e29991be180695296ef (patch) | |
tree | a3912d9e1854fcd0f177c7be074aacf8e36a297a /lisp/mail | |
parent | 440c4d7aa858844a0ff64ce28e76c2628ad978a3 (diff) | |
download | emacs-19a0baf79c376cee76278e29991be180695296ef.tar.gz |
(smtpmail-send-queued-mail): Insert the enqueued messages literally.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/smtpmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |