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

(message-send-news): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00ca06b..66229e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
-2000-11-22 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+2000-11-22 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-send-mail): Use buffer-substring-no-properties.
+       (message-send-news): Ditto.
 
 2000-11-22  David Edmondson <dme@dme.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index fa4d383..ce804af 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2578,10 +2578,9 @@ to find out how to use this."
              (buffer-disable-undo)
              (erase-buffer)
              ;; Avoid copying text props.
-             (insert (format
-                      "%s" (save-excursion
-                             (set-buffer messbuf)
-                             (buffer-string))))
+             (insert (with-current-buffer messbuf
+                       (buffer-substring-no-properties 
+                        (point-min) (point-max))))
              (message-encode-message-body)
              ;; Remove some headers.
              (save-restriction