[gnus git] branch master updated: m0-1-100-g9fd8294 =1= * gnus-compat.el: Add a compat for the old `url-retrieve'.

       via  9fd82949bb69b002e2ff057f2a4e61c77261d1fc (commit)
      from  ff13010974eb5ab58a1e2b4d3b57af35bb5685b0 (commit)


- Log -----------------------------------------------------------------
commit 9fd82949bb69b002e2ff057f2a4e61c77261d1fc
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 8 03:00:03 2012 +0100

    * gnus-compat.el: Add a compat for the old `url-retrieve'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c97bb93..83e7c12 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-08  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-compat.el: Add a compat for the old `url-retrieve'.
+
 2012-02-07  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-compat.el: Make `help-function-arglist' be compatible on Emacs
diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index ea8dd4d..cc0bd45 100644
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -76,6 +76,15 @@ TRASH is ignored."
 	    (delete-file file))))
       (delete-directory directory))))
 
+;; Emacs 24.0.93
+(when (= (length (help-function-arglist 'url-retrieve)) 5)
+  (defvar gnus-compat-original-url-retrieve
+    (symbol-function 'url-retrieve))
+  (defun url-retrieve (url callback &optional cbargs silent inhibit-cookies)
+    "Retrieve URL asynchronously and call CALLBACK with CBARGS when finished."
+    (funcall gnus-compat-original-url-retrieve
+	     url callback cbargs silent)))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here

-----------------------------------------------------------------------
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/gnus-compat.el |    9 +++++++++
 2 files changed, 13 insertions(+), 0 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