* gnus-xmas.el (gnus-xmas-article-display-xface): Use

insert-buffer-substring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66229e6..2055b6c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-11-22 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-xmas.el (gnus-xmas-article-display-xface): Use
+       insert-buffer-substring.
+
        * message.el (message-send-mail): Use buffer-substring-no-properties.
        (message-send-news): Ditto.
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 6bea994..d111863 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -711,7 +711,7 @@ XEmacs compatibility workaround."
             (let ((cur (current-buffer)))
               (save-excursion
                 (gnus-set-work-buffer)
-                (insert (format "%s" (buffer-substring beg end cur)))
+                (insert-buffer-substring cur beg end)
                 (gnus-xmas-call-region "uncompface")
                 (goto-char (point-min))
                 (insert "/* Width=48, Height=48 */\n")