XEmacs build warning fix

* gravatar.el (gravatar-retrieve-synchronously): XEmacs also has
`url-retrieve-synchronously', apparently.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a7b8d3..c563dd0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gravatar.el (gravatar-retrieve-synchronously): XEmacs also has
+       `url-retrieve-synchronously', apparently.
+
        * dgnushack.el: Silence XEmacs dns.el warning.
 
        * gnus-compat.el (gnus-compat): Declare `declare-function' only here

diff --git a/lisp/gravatar.el b/lisp/gravatar.el
index 650564e..ffbc37a 100644 (file)
--- a/lisp/gravatar.el
+++ b/lisp/gravatar.el
@@ -138,9 +138,7 @@ You can provide a list of argument to pass to CB in CBARGS."
   "Retrieve MAIL-ADDRESS gravatar and returns it."
   (let ((url (gravatar-build-url mail-address)))
     (if (gravatar-cache-expired url)
-        (with-current-buffer (if (featurep 'xemacs)
-                                (url-retrieve url)
-                              (url-retrieve-synchronously url))
+        (with-current-buffer (url-retrieve-synchronously url)
          (when gravatar-automatic-caching
             (url-store-in-cache (current-buffer)))
           (let ((data (gravatar-data->image)))