# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 956894644 0
# Node ID 4ed5e6dadc6e6bf6612c226876da1b7f3107eaec
# Parent  bdbffbf2a00e50a7e878d00c269f00852e920e81
(sendmail-send-it): Set
buffer-file-coding-system to the selected coding system for MIME
header.

diff -r bdbffbf2a00e -r 4ed5e6dadc6e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Fri Apr 28 04:03:09 2000 +0000
+++ b/lisp/mail/sendmail.el	Fri Apr 28 04:04:04 2000 +0000
@@ -907,6 +907,12 @@
 		   (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)