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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc847a1dc5ca37e05cf2be4184eb8ccc048b8cc0..cfd701f1a71cd7eda7b3ecee9ce15a32ccd5f613 100644 (file)
--- 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-01  Stefan Monnier  <monnier@cs.yale.edu>
 
        * indent.el (tab-to-tab-stop): Use delete-horizontal-space.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index f57d08707e35ab9b970628ff311d9d2c4c868782..f3786c47cfeb5789e0768bce26be5013b89bb92a 100644 (file)
--- 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))