X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0bb24df135e9c44d2e5a78b58b10719eea9e413b..0ff58f69651faa1aa36ff45d4012a19938642412:/lisp/gnus/gravatar.el

diff --git a/lisp/gnus/gravatar.el b/lisp/gnus/gravatar.el
index ffbc37ae15..81503b7d90 100644
--- a/lisp/gnus/gravatar.el
+++ b/lisp/gnus/gravatar.el
@@ -1,6 +1,6 @@
 ;;; gravatar.el --- Get Gravatars
 
-;; Copyright (C) 2010-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2016 Free Software Foundation, Inc.
 
 ;; Author: Julien Danjou <julien@danjou.info>
 ;; Keywords: news
@@ -26,6 +26,7 @@
 
 (require 'url)
 (require 'url-cache)
+(require 'image)
 
 (defgroup gravatar nil
   "Gravatar."
@@ -91,22 +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))
-	((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
-	(gravatar-create-image data nil t)
+	(create-image data nil t)
       'error)))
 
 (autoload 'help-function-arglist "help-fns")