From: yamaoka <yamaoka>
Date: Mon, 29 Jan 2001 01:34:12 +0000 (+0000)
Subject: (gnus-article-mime-edit-exit): Use `buffer-substring-no-properties' instead of
X-Git-Tag: t-gnus-6_14_6-02-last-~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=599372b00ce808ea0565f2fd292e9bc693224dcb;p=elisp%2Fgnus.git-

(gnus-article-mime-edit-exit): Use `buffer-substring-no-properties' instead of
 `format'.
---

diff --git a/ChangeLog b/ChangeLog
index b23dbdd..201804b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-29  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (gnus-article-mime-edit-exit): Use
+	`buffer-substring-no-properties' instead of `format'.
+
 2001-01-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* lisp/ptexinfmt.el: Support @letterpaper and @afivepaper.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7d7b8ca..b38c55f 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4692,7 +4692,7 @@ after replacing with the original article."
       (setq font-lock-defaults nil)
       (font-lock-mode 0))
     ;; We remove all text props from the article buffer.
-    (setq buf (format "%s" (buffer-string)))
+    (setq buf (buffer-substring-no-properties (point-min) (point-max)))
     (set-buffer (get-buffer-create gnus-original-article-buffer))
     (erase-buffer)
     (insert buf)