(gnus-xmas-put-image): Allow non-strings to be passed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fd1961..9851abb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-xmas.el (gnus-xmas-create-image): Take optional
        parameters. 
+       (gnus-xmas-put-image): Allow non-strings to be passed.
 
        * gnus-art.el (article-display-x-face): Use optional parameters. 
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 18d92a8..a183f79 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -832,7 +832,7 @@ XEmacs compatibility workaround."
                (car (last (split-string file "[.]"))))))
     (if (equal type "xbm")
        (make-glyph (list (cons 'x file)))
-      (with-tmp-buffer
+      (with-temp-buffer
        (if data-p
           (insert file)
         (insert-file-contents file))
@@ -847,7 +847,7 @@ XEmacs compatibility workaround."
 Warning: Don't insert text immediately after the image."
   (let ((begin (point))
        extent)
-    (insert string)
+    (insert (or string " "))
     (setq extent (make-extent begin (point)))
     (set-extent-property extent 'gnus-image t)
     (set-extent-property extent 'duplicable t)