gnus-html.el (gnus-html-schedule-image-fetching): Fix last change.

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 7d8c0ef..3ae3766 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -367,13 +367,9 @@ Use ALT-TEXT for the image string."
   (let ((args (list (car image)
                    'gnus-html-image-fetched
                    (list buffer image))))
-    (when (> (if (featurep 'xemacs)
-                (1- (length
-                     (delete "&optional"
-                             (delete "&rest"
-                                     (split-string
-                                      (function-arglist 'url-retrieve))))))
-              (length (help-function-arglist 'url-retrieve)))
+    (when (> (length (if (featurep 'xemacs)
+                        (split-string (function-arglist 'url-retrieve))
+                      (help-function-arglist 'url-retrieve)))
             4)
       (setq args (nconc args (list t))))
     (apply #'url-retrieve args)))