Mercurial > emacs

changeset 41921:de4a90cd0a5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-send-queued-mail): Insert the enqueued messages literally.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 10 Dec 2001 19:48:32 +0000
parents bb72c55fd4de
children 8a31717795f7
files lisp/mail/smtpmail.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))