summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2001-12-10 19:49:32 +0000
committerEli Zaretskii <eliz@gnu.org>2001-12-10 19:49:32 +0000
commit19a0baf79c376cee76278e29991be180695296ef (patch)
treea3912d9e1854fcd0f177c7be074aacf8e36a297a /lisp/mail
parent440c4d7aa858844a0ff64ce28e76c2628ad978a3 (diff)
downloademacs-19a0baf79c376cee76278e29991be180695296ef.tar.gz
(smtpmail-send-queued-mail): Insert the enqueued messages literally.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/smtpmail.el5
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))