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 (file)
--- 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 (file)
--- 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)