diff options
Diffstat (limited to 'lisp/gnus/gnus-start.el')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index e2dff45e580..3879df3c4b6 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1743,11 +1743,13 @@ If SCAN, request a scan of that group as well." (cond ((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)) - ((gnus-check-backend-function 'retrieve-groups (car method)) + ((and (gnus-check-backend-function 'retrieve-groups (car method)) + infos) (when (gnus-check-backend-function 'request-scan (car method)) (gnus-request-scan nil method)) (let (groups) |