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