aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/gravatar.el11
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/gnus/gravatar.el b/lisp/gnus/gravatar.el
index 86940034821..81503b7d90a 100644
--- a/lisp/gnus/gravatar.el
+++ b/lisp/gnus/gravatar.el
@@ -26,6 +26,7 @@
26 26
27(require 'url) 27(require 'url)
28(require 'url-cache) 28(require 'url-cache)
29(require 'image)
29 30
30(defgroup gravatar nil 31(defgroup gravatar nil
31 "Gravatar." 32 "Gravatar."
@@ -91,20 +92,12 @@
91 (when (search-forward "\n\n" nil t) 92 (when (search-forward "\n\n" nil t)
92 (buffer-substring (point) (point-max)))))) 93 (buffer-substring (point) (point-max))))))
93 94
94(eval-and-compile
95 (cond ((featurep 'xemacs)
96 (require 'gnus-xmas)
97 (defalias 'gravatar-create-image 'gnus-xmas-create-image))
98 (t
99 (require 'image)
100 (defalias 'gravatar-create-image 'create-image))))
101
102(defun gravatar-data->image () 95(defun gravatar-data->image ()
103 "Get data of current buffer and return an image. 96 "Get data of current buffer and return an image.
104If no image available, return 'error." 97If no image available, return 'error."
105 (let ((data (gravatar-get-data))) 98 (let ((data (gravatar-get-data)))
106 (if data 99 (if data
107 (gravatar-create-image data nil t) 100 (create-image data nil t)
108 'error))) 101 'error)))
109 102
110(autoload 'help-function-arglist "help-fns") 103(autoload 'help-function-arglist "help-fns")