diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-01 05:50:11 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-01 05:50:11 +0000 |
| commit | 4b36c6d4debd2fe02b6ce77e5e90c78655b6f37f (patch) | |
| tree | 78b4b2c7cae089e5d23d79a257bbbb6b441dcf68 /lisp/gnus/gravatar.el | |
| parent | 1ef075bb27f5fa06dd668a5e9fac26029b5429bc (diff) | |
| download | emacs-4b36c6d4debd2fe02b6ce77e5e90c78655b6f37f.tar.gz emacs-4b36c6d4debd2fe02b6ce77e5e90c78655b6f37f.tar.bz2 emacs-4b36c6d4debd2fe02b6ce77e5e90c78655b6f37f.zip | |
gravatar.el (gravatar-create-image): New function.
Diffstat (limited to 'lisp/gnus/gravatar.el')
| -rw-r--r-- | lisp/gnus/gravatar.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/gnus/gravatar.el b/lisp/gnus/gravatar.el index ec03b1b8a00..d4dfb763167 100644 --- a/lisp/gnus/gravatar.el +++ b/lisp/gnus/gravatar.el @@ -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 |