From fe4a9204a7a3799d63b30753ac705af8538a591e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 3 Feb 2011 07:26:31 -0800 Subject: [PATCH 1/1] (gnus-read-active-for-groups): This function is never called with a nil `infos', so clean that up. --- lisp/ChangeLog | 5 +++++ lisp/gnus-start.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87310023d..27dd3a245 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-03 Lars Ingebrigtsen + + * gnus-start.el (gnus-read-active-for-groups): This function is never + called with a nil `infos', so clean that up. + 2011-02-03 Julien Danjou * message.el (message-setup-1): Always generate References first. diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 7517c871c..d2f6c985c 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1747,14 +1747,12 @@ If SCAN, request a scan of that group as well." ;; methods. ((and (gnus-check-backend-function 'finish-retrieve-group-infos (car method)) - infos (or (not (gnus-agent-method-p method)) (gnus-online method))) (gnus-finish-retrieve-group-infos method infos early-data) (gnus-agent-save-active method)) ;; Most backends have -retrieve-groups. - ((and (gnus-check-backend-function 'retrieve-groups (car method)) - infos) + ((gnus-check-backend-function 'retrieve-groups (car method)) (when (gnus-check-backend-function 'request-scan (car method)) (gnus-request-scan nil method)) (let (groups) -- 2.25.1