From: yamaoka <yamaoka>
Date: Thu, 11 Jan 2001 07:11:42 +0000 (+0000)
Subject: gnus-msg.el (gnus-copy-article-buffer): Revome smiley extents for XEmacs 21.1
X-Git-Tag: t-gnus-6_15_0-04-quimby~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=60678233b782b8a01e2cee48fc64856491bab0f4;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 7696c52..8754969 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +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'.
+
 	* lisp/dgnushack.el (dgnushack-texi-format): Cancel last change.
 
 2001-01-10  Katsumi Yamaoka <yamaoka@jpl.org>
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 06625a9..c9ea406 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -535,7 +535,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)