gnus-xmas-create-image: Don't try to examine image type on data, not a file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e051435..a4a4712 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-xmas.el (gnus-xmas-create-image): Don't try to examine image
+       type on data, not a file name.
+
        * lpath.el: Fbind w3-parse-buffer for Emacs <=22 and XEmacs; fbind
        window-pixel-edges for Emacs 21.
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index c2eb1c6..1e5fafb 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -936,7 +936,8 @@ XEmacs compatibility workaround."
   (let ((type (cond
               (type
                (symbol-name type))
-              ((string-match "[.]" file)
+              ((and (not data-p)
+                    (string-match "[.]" file))
                (car (last (split-string file "[.]"))))))
        (face (plist-get props :face))
        glyph)