From: yamaoka <yamaoka>
Date: Thu, 11 Jan 2001 07:11:01 +0000 (+0000)
Subject: gnus-msg.el (gnus-copy-article-buffer): Revome smiley extents for XEmacs 21.1
X-Git-Tag: t-gnus-6_14_5-last-~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=935ada59e86f1e223f1170b8a6c82cecbd7e0435;p=elisp%2Fgnus.git-

gnus-msg.el (gnus-copy-article-buffer): Revome smiley extents for XEmacs 21.1
 using `format'.
---

diff --git a/ChangeLog b/ChangeLog
index 0c3ae90..83a4e7c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-11  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-msg.el (gnus-copy-article-buffer): Revome smiley
+	extents for XEmacs 21.1 using `format'.
+
 2001-01-10  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 09.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index dfd03df..aa71f8d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -493,7 +493,12 @@ header line with the old Message-ID."
 	    (gnus-remove-text-with-property 'x-face-mule-bitmap-image)
 	    (insert
 	     (prog1
-		 (buffer-substring-no-properties (point-min) (point-max))
+		 (static-if (featurep 'xemacs)
+		     ;; Revome smiley extents for (possibly) XEmacs 21.1.
+		     (format "%s"
+			     (buffer-substring-no-properties (point-min)
+							     (point-max)))
+		   (buffer-substring-no-properties (point-min) (point-max)))
 	       (erase-buffer))))
 	  ;; Find the original headers.
 	  (set-buffer gnus-original-article-buffer)