Sync with Emacs-21_2+LEIM.

[elisp/lemi.git] / mail / smtpmail.el

diff --git a/mail/smtpmail.el b/mail/smtpmail.el
index d037486..5d14d6b 100644 (file)
--- a/mail/smtpmail.el
+++ b/mail/smtpmail.el
@@ -286,7 +286,10 @@ This is relative to `smtpmail-queue-dir'.")
                                                   (end-of-line)
                                                   (point))))
        (load file-msg)
-       (setq tembuf (binary-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 smtpmail-recipient-address-list
            (smtp-send-buffer user-mail-address
                              smtpmail-recipient-address-list tembuf)