From: Kenichi Handa <handa@m17n.org>
Date: Fri, 28 Apr 2000 04:04:04 +0000 (+0000)
Subject: (sendmail-send-it): Set
X-Git-Tag: emacs-pretest-21.0.90~4105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=030106ca73e8167d4d569f6d1615d58189bbffca;p=emacs.git

(sendmail-send-it): Set
buffer-file-coding-system to the selected coding system for MIME
header.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index d5c0cb576ee..542a91e0d2c 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -907,6 +907,12 @@ See also the function `select-message-coding-system'.")
 		   (progn (skip-chars-forward "\0-\177")
 			  (/= (point) (point-max)))
 		   (setq coding-system (select-message-coding-system))
+		   ;; Set buffer-file-coding-system to the selected
+		   ;; one.  This prevent the later call of
+		   ;; select-message-coding-system asking a user
+		   ;; again.
+		   (prog1 t
+		     (set-buffer-file-coding-system coding-system))
 		   (setq charset
 			 (coding-system-get coding-system 'mime-charset))
 		   (goto-char delimline)