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

lisp/ChangeLog

+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

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