From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 22 Nov 2000 14:27:40 +0000 (+0000)
Subject: * message.el (message-send-mail): Use buffer-substring-no-properties.
X-Git-Tag: emacs-pretest-21.0.92~180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce1ec550eb5fbe8ddeb7851fecc2f0fd802b9658;p=emacs.git

* message.el (message-send-mail): Use buffer-substring-no-properties.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 69b561c13ab..595c39a49f9 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-22 ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* message.el (message-send-mail): Use buffer-substring-no-properties.
+
 2000-11-21  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* gnus-win.el (gnus-configure-windows): switch-to-buffer -> set-buffer.
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f0c4d34e3a9..d47636873c7 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2318,10 +2318,8 @@ It should typically alter the sending method in some way or other."
 	  (set-buffer tembuf)
 	  (erase-buffer)
 	  ;; Avoid copying text props.
-	  (insert (format
-		   "%s" (save-excursion
-			  (set-buffer mailbuf)
-			  (buffer-string))))
+	  (insert (with-current-buffer mailbuf
+		    (buffer-substring-no-properties (point-min) (point-max))))
 	  ;; Remove some headers.
 	  (message-encode-message-body)
 	  (save-restriction