From: Lars Magne Ingebrigtsen Date: Tue, 1 Feb 2011 01:58:27 +0000 (-0800) Subject: (gnus-read-active-file-1): Remove dead parameter infos. X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=cf9a1f28502ae17987738d6ddc1db76cd91e9a08;p=gnus (gnus-read-active-file-1): Remove dead parameter infos. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82b88c0a7..54f5c3b53 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-02-01 Lars Ingebrigtsen + + * gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos. + 2011-01-31 Lars Ingebrigtsen * gnus-art.el (article-transform-date): Rewrite to still work when diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index b66c28b2a..0546226ce 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1764,7 +1764,7 @@ If SCAN, request a scan of that group as well." method))) ;; All backends have -request-list. ((gnus-check-backend-function 'request-list (car method)) - (gnus-read-active-file-1 method nil infos)) + (gnus-read-active-file-1 method nil)) ;; Unless nnvirtual and friends, where we request each group, one ;; by one. (t @@ -1995,7 +1995,7 @@ If SCAN, request a scan of that group as well." (message "Quit reading the active file") nil)))))))) -(defun gnus-read-active-file-1 (method force &optional infos) +(defun gnus-read-active-file-1 (method force) (let (where mesg) (setq where (nth 1 method) mesg (format "Reading active file%s via %s..."