(smtpmail-send-queued-mail): Insert the enqueued messages literally.

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))