# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032740271 0
# Node ID d5e1e2adcb67f31b41979ed00912c00ae5db4ea3
# Parent  6e910ba94c42c2df1ce6b4dd96749b78eac9a61a
(sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.

diff -r 6e910ba94c42 -r d5e1e2adcb67 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Sep 22 17:39:18 2002 +0000
+++ b/lisp/mail/sendmail.el	Mon Sep 23 00:17:51 2002 +0000
@@ -806,6 +806,7 @@
 		    (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 @@
 	(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))