(sendmail-send-it): Bind sendmail-coding-system

to buffer-file-coding-system if it is non-nil.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0b9c14d24e9..bd2e582efd0 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -590,7 +590,9 @@ the user from the mailer."
         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)