(gnus-agent-fetch-session): Only fetch online methods.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80779dc..3def83d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -16,6 +16,7 @@
 
        * gnus-agent.el (gnus-agent-get-function): Use it.
        (gnus-agent-get-undownloaded-list): Ditto.
+       (gnus-agent-fetch-session): Only fetch online methods.
 
        * gnus-srvr.el (gnus-server-make-menu-bar): Add offline.
        (gnus-server-mode-map): Ditto.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index c13d248..0c580e7 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1140,8 +1140,9 @@ the actual number of articles toggled is returned."
        (condition-case err
            (progn
              (setq gnus-command-method (car methods))
-             (when (or (gnus-server-opened gnus-command-method)
-                       (gnus-open-server gnus-command-method))
+             (when (and (or (gnus-server-opened gnus-command-method)
+                            (gnus-open-server gnus-command-method))
+                        (gnus-online gnus-command-method))
                (setq groups (gnus-groups-from-server (car methods)))
                (gnus-agent-with-fetch
                  (while (setq group (pop groups))