From 2b7573b15da4f298e865385efd9f0e9c3fcad63a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 14 Jun 2000 13:04:57 +0000 Subject: [PATCH] (sendmail-send-it): Inherit buffer-file-coding-system of the current buffer to the temporary buffer that this funciton uses for work. --- lisp/mail/sendmail.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 878ce8a49a3..e2d6ffcde9d 100644 --- 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) -- 2.39.5