* gravatar.el (gravatar-retrieve): Be silent when retrieving.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21fb2c0..ad2726f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-24  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gravatar.el (gravatar-retrieve): Be silent when retrieving.
+
 2011-01-23  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-html.el (gnus-html-image-fetched): Kill the buffer anyway, and

diff --git a/lisp/gravatar.el b/lisp/gravatar.el
index 158347f..cb857fc 100644 (file)
--- a/lisp/gravatar.el
+++ b/lisp/gravatar.el
@@ -108,9 +108,15 @@ If no image available, return 'error."
 You can provide a list of argument to pass to CB in CBARGS."
   (let ((url (gravatar-build-url mail-address)))
     (if (gravatar-cache-expired url)
-        (url-retrieve url
-                      'gravatar-retrieved
-                      (list cb (when cbargs cbargs)))
+       (let ((args (list url
+                         'gravatar-retrieved
+                         (list cb (when cbargs cbargs)))))
+         (when (> (length (if (featurep 'xemacs)
+                              (cdr (split-string (function-arglist 'url-retrieve)))
+                            (help-function-arglist 'url-retrieve)))
+                  4)
+           (setq args (nconc args (list t))))
+         (apply #'url-retrieve args))
       (apply cb
                (with-temp-buffer
                  (mm-disable-multibyte)