From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Sep 2002 00:17:51 +0000 (+0000)
Subject: (sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
X-Git-Tag: ttn-vms-21-2-B4~13088
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c86237b26e214f8fc651298e8fe405cde658aeb0;p=emacs.git

(sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 7be8c973762..aefe64cc656 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -806,6 +806,7 @@ external program defined by `sendmail-program'."
 		    (generate-new-buffer " sendmail errors")
 		  0))
 	(tembuf (generate-new-buffer " sendmail temp"))
+	(multibyte enable-multibyte-characters)
 	(case-fold-search nil)
 	(coding (and (local-variable-p 'buffer-file-coding-system)
 		     buffer-file-coding-system))
@@ -826,6 +827,8 @@ external program defined by `sendmail-program'."
 	(save-excursion
 	  (set-buffer tembuf)
 	  (erase-buffer)
+	  (unless multibyte
+	    (set-buffer-multibyte nil))
 	  (insert-buffer-substring mailbuf)
 	  (set-buffer-file-coding-system coding)
 	  (goto-char (point-max))