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

2 files changed, 6 insertions, 4 deletions

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