# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 974903260 0
# Node ID 2827e4066e080eed25ee75ebf6cf54e480ef005c
# Parent  e0e2461a24fe624608d2d2cc0de80e0f79417d8f
* message.el (message-send-mail): Use buffer-substring-no-properties.

diff -r e0e2461a24fe -r 2827e4066e08 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 22 14:27:38 2000 +0000
+++ b/lisp/gnus/ChangeLog	Wed Nov 22 14:27:40 2000 +0000
@@ -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 -r e0e2461a24fe -r 2827e4066e08 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Wed Nov 22 14:27:38 2000 +0000
+++ b/lisp/gnus/message.el	Wed Nov 22 14:27:40 2000 +0000
@@ -2318,10 +2318,8 @@
 	  (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