From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 22 Nov 2000 15:45:16 +0000 (+0000)
Subject: * gnus-xmas.el (gnus-xmas-article-display-xface): Use
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=5e4259ea928d91ae1e8d63642a4c8202d44e7283;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66229e60d..2055b6c91 100644
--- 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 6bea99459..d11186317 100644
--- 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")