changeset 47579:d5e1e2adcb67

(sendmail-send-it): If user's buffer is unibyte, make tembuf unibyte.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 Sep 2002 00:17:51 +0000
parents 6e910ba94c42
children eb43274136af
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))