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

[Kenichi Handa]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.259 emacs/lisp/mail/sendmail.el:1.260
*** emacs/lisp/mail/sendmail.el:1.259   Thu Oct 10 22:27:09 2002
--- emacs/lisp/mail/sendmail.el Mon Oct 14 21:09:45 2002
***************
*** 817,825 ****
        (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
  ;;;   resend-to-addresses
        delimline
        fcc-was-found
--- 817,823 ----
        (tembuf (generate-new-buffer " sendmail temp"))
        (multibyte enable-multibyte-characters)
        (case-fold-search nil)
!       (selected-coding (select-message-coding-system))
  ;;;   resend-to-addresses
        delimline
        fcc-was-found
***************
*** 839,845 ****
          (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)
--- 837,842 ----
***************
*** 963,969 ****
                   (not (re-search-forward "^MIME-version:" delimline t))
                   (progn (skip-chars-forward "\0-\177")
                          (/= (point) (point-max)))
!                  (setq selected-coding (select-message-coding-system))
                   (setq charset
                         (coding-system-get selected-coding 'mime-charset))
                   (goto-char delimline)
--- 960,966 ----
                   (not (re-search-forward "^MIME-version:" delimline t))
                   (progn (skip-chars-forward "\0-\177")
                          (/= (point) (point-max)))
!                  selected-coding
                   (setq charset
                         (coding-system-get selected-coding 'mime-charset))
                   (goto-char delimline)
***************
*** 992,1000 ****
  \\|^resent-cc:\\|^resent-bcc:"
                                   delimline t))
              (let* ((default-directory "/")
!                    (coding-system-for-write
!                     (or selected-coding
!                         (select-message-coding-system)))
                     (args 
                      (append (list (point-min) (point-max)
                                    program
--- 989,995 ----
  \\|^resent-cc:\\|^resent-bcc:"
                                   delimline t))
              (let* ((default-directory "/")
!                    (coding-system-for-write selected-coding)
                     (args 
                      (append (list (point-min) (point-max)
                                    program