From: Kenichi Handa <handa@m17n.org>
Date: Wed, 14 Jun 2000 13:04:57 +0000 (+0000)
Subject: (sendmail-send-it): Inherit
X-Git-Tag: emacs-pretest-21.0.90~3323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b7573b15da4f298e865385efd9f0e9c3fcad63a;p=emacs.git

(sendmail-send-it): Inherit
buffer-file-coding-system of the current buffer to the temporary
buffer that this funciton uses for work.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 878ce8a49a3..e2d6ffcde9d 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -773,6 +773,8 @@ See also the function `select-message-coding-system'.")
 		  0))
 	(tembuf (generate-new-buffer " sendmail temp"))
 	(case-fold-search nil)
+	(coding (and (local-variable-p 'buffer-file-coding-system)
+		     buffer-file-coding-system))
 	resend-to-addresses
 	delimline
 	fcc-was-found
@@ -782,6 +784,7 @@ See also the function `select-message-coding-system'.")
 	  (set-buffer tembuf)
 	  (erase-buffer)
 	  (insert-buffer-substring mailbuf)
+	  (set-buffer-file-coding-system coding)
 	  (goto-char (point-max))
 	  ;; require one newline at the end.
 	  (or (= (preceding-char) ?\n)