(message-send-news): Use buffer-substring-no-properties.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2728b386d7980bcbc168d6ff36a56094c3d77fb2..b3ad58aa4b21530a20c206b27bdd4e16c4cd5e53 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -5,6 +5,7 @@
 2000-11-22 ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-send-mail): Use buffer-substring-no-properties.
+       (message-send-news): Ditto.
 
 2000-11-21  Stefan Monnier  <monnier@cs.yale.edu>
 

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index d47636873c75dd028a5fa5fca9b45fc636d59845..e18b4b9477c70f37b698aa9f59a8b8d367b2cc0b 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2526,10 +2526,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