changeset 29648:3c403fa9f76b

(sendmail-send-it): Inherit buffer-file-coding-system of the current buffer to the temporary buffer that this funciton uses for work.
author Kenichi Handa <handa@m17n.org>
date Wed, 14 Jun 2000 13:04:57 +0000
parents 7dd86f22995b
children 43b4ecc0b133
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Jun 14 13:03:06 2000 +0000
+++ b/lisp/mail/sendmail.el	Wed Jun 14 13:04:57 2000 +0000
@@ -773,6 +773,8 @@
 		  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 @@
 	  (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)