(sendmail-send-it): Call

select-message-coding-system before changing the current bufer to
" sendmail temp".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55cd8fec7d0101f4ea1aa7a218d2662b0c291df4..847eb31b16ebd4c3f2b517b69f3bba04c5dd2776 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-15  Kenichi Handa  <handa@m17n.org>
+
+       * mail/sendmail.el (sendmail-send-it): Call
+       select-message-coding-system before changing the current bufer to
+       " sendmail temp".
+
 2002-10-14  Andre Spiegel  <spiegel@gnu.org>
 
        * files.el (insert-directory): Handle //SUBDIRED// lines in

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 6be03ee439c03d04f9f2803a1facfc95c2891c7c..a3ec7f836e0bfa32ca8bfba96609917539e124f0 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -817,9 +817,7 @@ external program defined by `sendmail-program'."
        (tembuf (generate-new-buffer " sendmail temp"))
        (multibyte enable-multibyte-characters)
        (case-fold-search nil)
-       (coding (and (local-variable-p 'buffer-file-coding-system)
-                    buffer-file-coding-system))
-       selected-coding
+       (selected-coding (select-message-coding-system))
 ;;;    resend-to-addresses
        delimline
        fcc-was-found
@@ -839,7 +837,6 @@ external program defined by `sendmail-program'."
          (unless multibyte
            (set-buffer-multibyte nil))
          (insert-buffer-substring mailbuf)
-         (set-buffer-file-coding-system coding)
          (goto-char (point-max))
          ;; require one newline at the end.
          (or (= (preceding-char) ?\n)
@@ -963,7 +960,7 @@ external program defined by `sendmail-program'."
                   (not (re-search-forward "^MIME-version:" delimline t))
                   (progn (skip-chars-forward "\0-\177")
                          (/= (point) (point-max)))
-                  (setq selected-coding (select-message-coding-system))
+                  selected-coding
                   (setq charset
                         (coding-system-get selected-coding 'mime-charset))
                   (goto-char delimline)
@@ -992,9 +989,7 @@ external program defined by `sendmail-program'."
 \\|^resent-cc:\\|^resent-bcc:"
                                   delimline t))
              (let* ((default-directory "/")
-                    (coding-system-for-write
-                     (or selected-coding
-                         (select-message-coding-system)))
+                    (coding-system-for-write selected-coding)
                     (args 
                      (append (list (point-min) (point-max)
                                    program