(sendmail-send-it): The priority of coding

system for encoding outgoing mails is (1) local value of
buffer-file-coding-system, (2) sendmail-coding-syste, (3)
default-buffer-file-coding-system.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e5f1495ca81..1035aba71cb 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -619,8 +619,11 @@ the user from the mailer."
         delimline
         fcc-was-found
         (mailbuf (current-buffer))
-        (sendmail-coding-system (or buffer-file-coding-system
-                                        sendmail-coding-system)))
+        (sendmail-coding-system
+         (if (local-variable-p 'buffer-file-coding-system)
+             buffer-file-coding-system
+           (or sendmail-coding-system
+               default-buffer-file-coding-system))))
     (unwind-protect
         (save-excursion
           (set-buffer tembuf)