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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a01ba38fa6ade2f3450884cebd99b9d5457b096..40b6643c81ad95acbb93c2ff0c22e877f51d53a2 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-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 ed4bd7c8ddd42a356fa2e652ac32798f60faae39..a24aae74bf039cb51363f971b54cf54de93948a4 100644 (file)
--- 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))