changeset 28750:4ed5e6dadc6e

(sendmail-send-it): Set buffer-file-coding-system to the selected coding system for MIME header.
author Kenichi Handa <handa@m17n.org>
date Fri, 28 Apr 2000 04:04:04 +0000
parents bdbffbf2a00e
children 6a79bbe8bf72
files lisp/mail/sendmail.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)