# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960987897 0
# Node ID 3c403fa9f76b53311469745c3818d89a6391fcbd
# Parent  7dd86f22995b090545765270c588c473e4d04620
(sendmail-send-it): Inherit
buffer-file-coding-system of the current buffer to the temporary
buffer that this funciton uses for work.

diff -r 7dd86f22995b -r 3c403fa9f76b lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Jun 14 13:03:06 2000 +0000
+++ b/lisp/mail/sendmail.el	Wed Jun 14 13:04:57 2000 +0000
@@ -773,6 +773,8 @@
 		  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 @@
 	  (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)