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

[gnus] / lisp / gnus-xmas.el

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")