[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el |
Date: |
Mon, 10 Dec 2001 14:52:42 -0500 |
Index: emacs/lisp/mail/smtpmail.el
diff -c emacs/lisp/mail/smtpmail.el:1.36 emacs/lisp/mail/smtpmail.el:1.37
*** emacs/lisp/mail/smtpmail.el:1.36 Fri Nov 30 19:36:12 2001
--- emacs/lisp/mail/smtpmail.el Mon Dec 10 14:48:32 2001
***************
*** 376,382 ****
(while (not (eobp))
(setq file-msg (buffer-substring (point) (line-end-position)))
(load file-msg)
! (setq tembuf (find-file-noselect file-msg))
(if (not (null smtpmail-recipient-address-list))
(if (not (smtpmail-via-smtp smtpmail-recipient-address-list
tembuf))
--- 376,385 ----
(while (not (eobp))
(setq file-msg (buffer-substring (point) (line-end-position)))
(load 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))