Commit 4b36c6d4 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

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

parent 1ef075bb
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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment