From da54771e9188c60792ffdcd9b57ef11ac128064c Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 5 Oct 2010 03:44:31 +0000 Subject: [PATCH] gnus-html.el (gnus-html-schedule-image-fetching): Fix last change. --- lisp/gnus-html.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 7d8c0efa1..3ae3766ed 100644 --- 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))) -- 2.34.1