From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 2 Sep 2010 06:37:00 +0000 (+0000)
Subject: gnus-xmas-create-image: Don't try to examine image type on data, not a file name.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=9e6ecfe45977154b0c7adf6e263cbe3e88450c77

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 e051435fe..a4a471210 100644
--- 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 c2eb1c6ed..1e5fafb98 100644
--- 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)