[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el

[Eli Zaretskii]

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