2000-11-22 09:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e1c675..00ca06b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
-2000-11-22  dme@dme.org
+2000-11-22 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-send-mail): Use buffer-substring-no-properties.
+
+2000-11-22  David Edmondson <dme@dme.org>
 
        * imap.el (imap-wait-for-tag): Message read info.
 

diff --git a/lisp/message.el b/lisp/message.el
index 9644b43..fa4d383 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2370,10 +2370,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