Use `url-retrieve' on XEmacs, since it doesn't have url-retrieve-synchronously.

[gnus] / lisp / gravatar.el

diff --git a/lisp/gravatar.el b/lisp/gravatar.el
index 0c97080..4b0c9a1 100644 (file)
--- a/lisp/gravatar.el
+++ b/lisp/gravatar.el
@@ -129,8 +129,10 @@ 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 (url-retrieve-synchronously url)
-          (when gravatar-automatic-caching
+        (with-current-buffer (if (featurep 'xemacs)
+                                (url-retrieve url)
+                              (url-retrieve-synchronously url))
+         (when gravatar-automatic-caching
             (url-store-in-cache (current-buffer)))
           (let ((data (gravatar-data->image)))
             (kill-buffer (current-buffer))