(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 878ce8a49a3535737b836a88be22d4db3927c221..e2d6ffcde9db829ca15393d24e1ee448f06607d7 100644 (file)
--- 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)