[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f5a801c 3/5: Remove XEmacs compat code from gravata
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master f5a801c 3/5: Remove XEmacs compat code from gravatar.el |
Date: |
Thu, 11 Feb 2016 06:00:36 +0000 |
branch: master
commit f5a801ca4558ecf74d7637535978b548167edf18
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove XEmacs compat code from gravatar.el
* lisp/gnus/gravatar.el: Remove XEmacs compat code from
gravatar.el.
---
lisp/gnus/gravatar.el | 11 ++---------
1 files changed, 2 insertions(+), 9 deletions(-)
diff --git a/lisp/gnus/gravatar.el b/lisp/gnus/gravatar.el
index 8694003..81503b7 100644
--- a/lisp/gnus/gravatar.el
+++ b/lisp/gnus/gravatar.el
@@ -26,6 +26,7 @@
(require 'url)
(require 'url-cache)
+(require 'image)
(defgroup gravatar nil
"Gravatar."
@@ -91,20 +92,12 @@
(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))
- (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
- (gravatar-create-image data nil t)
+ (create-image data nil t)
'error)))
(autoload 'help-function-arglist "help-fns")