procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gravatar.el (gravatar-create-image): New function.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-01 05:50:11 +00:00
parent 1ef075bb27
commit 4b36c6d4de
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -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

13
lisp/gnus/gravatar.el
View file

@ -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