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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c97bb93..83e7c12 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-08  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-compat.el: Add a compat for the old `url-retrieve'.
+
 2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * 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 (file)
--- 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