summaryrefslogtreecommitdiff
path: root/lisp
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
parent440c4d7aa858844a0ff64ce28e76c2628ad978a3 (diff)
downloademacs-19a0baf79c376cee76278e29991be180695296ef.tar.gz
(smtpmail-send-queued-mail): Insert the enqueued messages literally.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/mail/smtpmail.el5
2 files changed, 9 insertions, 1 deletions
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 <eliz@is.elta.co.il>
+
+ * mail/smtpmail.el (smtpmail-send-queued-mail): Insert the
+ enqueued messages literally.
+
2001-12-10 Noah Friedman <friedman@splode.com>
* 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))