# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1008013712 0
# Node ID de4a90cd0a5fc452c1bfbff40b3c712e0f3a259f
# Parent  bb72c55fd4de8a3a3bd2eeac1dd81a60869e472f
(smtpmail-send-queued-mail): Insert the enqueued messages literally.

diff -r bb72c55fd4de -r de4a90cd0a5f lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Mon Dec 10 10:22:22 2001 +0000
+++ b/lisp/mail/smtpmail.el	Mon Dec 10 19:48:32 2001 +0000
@@ -376,7 +376,10 @@
       (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))