From 60678233b782b8a01e2cee48fc64856491bab0f4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 11 Jan 2001 07:11:42 +0000 Subject: [PATCH] gnus-msg.el (gnus-copy-article-buffer): Revome smiley extents for XEmacs 21.1 using `format'. --- ChangeLog | 3 +++ lisp/gnus-msg.el | 7 ++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 7696c52..8754969 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2001-01-11 Katsumi Yamaoka + * 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 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) -- 1.7.10.4