# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1285912211 0
# Node ID bd7b628a1f6700c23d4fb60994f022376864edde
# Parent  1ec34887255df682c1b9fb4a9169427c8ba4cf50
gravatar.el (gravatar-create-image): New function.

diff -r 1ec34887255d -r bd7b628a1f67 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Sep 30 20:57:26 2010 -0700
+++ b/lisp/gnus/ChangeLog	Fri Oct 01 05:50:11 2010 +0000
@@ -1,3 +1,10 @@
+2010-10-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gravatar.el: Don't load image.el that XEmacs doesn't provide.
+	(gravatar-create-image): New function that's an alias to
+	gnus-xmas-create-image, gnus-create-image, or create-image.
+	(gravatar-data->image): Use it.
+
 2010-09-30  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* gnus-registry.el (gnus-registry-install-nnregistry): New function to
diff -r 1ec34887255d -r bd7b628a1f67 lisp/gnus/gravatar.el
--- a/lisp/gnus/gravatar.el	Thu Sep 30 20:57:26 2010 -0700
+++ b/lisp/gnus/gravatar.el	Fri Oct 01 05:50:11 2010 +0000
@@ -24,7 +24,6 @@
 
 ;;; Code:
 
-(require 'image)
 (require 'url)
 (require 'url-cache)
 
@@ -84,12 +83,22 @@
     (when (search-forward "\n\n" nil t)
       (buffer-substring (point) (point-max)))))
 
+(eval-and-compile
+  (cond ((featurep 'xemacs)
+	 (require 'gnus-xmas)
+	 (defalias 'gravatar-create-image 'gnus-xmas-create-image))
+	((featurep 'gnus-ems)
+	 (defalias 'gravatar-create-image 'gnus-create-image))
+	(t
+	 (require 'image)
+	 (defalias 'gravatar-create-image 'create-image))))
+
 (defun gravatar-data->image ()
   "Get data of current buffer and return an image.
 If no image available, return 'error."
   (let ((data (gravatar-get-data)))
     (if data
-        (create-image data  nil t)
+	(gravatar-create-image data  nil t)
       'error)))
 
 ;;;###autoload