diff lisp/gnus/gnus-html.el @ 110768:c389bae37f05

gnus-html.el (gnus-html-schedule-image-fetching): Work for XEmacs.

--- a/lisp/gnus/gnus-html.el	Mon Oct 04 19:40:34 2010 -0700
+++ b/lisp/gnus/gnus-html.el	Tue Oct 05 03:48:30 2010 +0000
@@ -37,7 +37,7 @@
 (require 'url-cache)
 (require 'xml)
 (require 'browse-url)
-(require 'help-fns)
+(eval-and-compile (unless (featurep 'xemacs) (require 'help-fns)))
 
 (defcustom gnus-html-image-cache-ttl (days-to-time 7)
   "Time used to determine if we should use images from the cache."
@@ -367,7 +367,10 @@
   (let ((args (list (car image)
 		    'gnus-html-image-fetched
 		    (list buffer image))))
-    (when (> (length (help-function-arglist 'url-retrieve)) 4)
+    (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)))