# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870927498 0
# Node ID e32501a34d5c9c0582557d9ab3651d65a535253d
# Parent  f502f8e2322a9a805974ddbe95bc55f52fe14519
(sendmail-send-it): Bind sendmail-coding-system
to buffer-file-coding-system if it is non-nil.

diff -r f502f8e2322a -r e32501a34d5c lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Aug 07 03:52:11 1997 +0000
+++ b/lisp/mail/sendmail.el	Thu Aug 07 04:18:18 1997 +0000
@@ -590,7 +590,9 @@
 	resend-to-addresses
 	delimline
 	fcc-was-found
-	(mailbuf (current-buffer)))
+	(mailbuf (current-buffer))
+	(sendmail-coding-system (or buffer-file-coding-system
+				        sendmail-coding-system)))
     (unwind-protect
 	(save-excursion
 	  (set-buffer tembuf)