[gnus git] branch master updated: =1= * gravatar.el (gravatar-retrieve): Be silent when retrieving.

       via  4a3c4e96ab1e0f5f52d6814728b479ea987293df (commit)
      from  54953e859329102788f57e454326a722b089c0f4 (commit)


- Log -----------------------------------------------------------------
commit 4a3c4e96ab1e0f5f52d6814728b479ea987293df
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 24 01:32:09 2011 +0100

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21fb2c0..ad2726f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-24  Lars Ingebrigtsen  <[email protected]>
+
+	* gravatar.el (gravatar-retrieve): Be silent when retrieving.
+
 2011-01-23  Lars Ingebrigtsen  <[email protected]>
 
 	* 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
--- 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
+	(let ((args (list url
                       'gravatar-retrieved
-                      (list cb (when cbargs cbargs)))
+			  (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    4 ++++
 lisp/gravatar.el |   12 +++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project