(gnus-read-active-file): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8b814b..c956bff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-start.el (gnus-get-unread-articles): Ignore totally non-existent
        methods.
+       (gnus-read-active-file): Ditto.
 
        * gnus-group.el (gnus-group-read-ephemeral-group): Remove superfluous
        ": " from the prompt.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index bad3ffe..8663d67 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1986,7 +1986,9 @@ If SCAN, request a scan of that group as well."
       (while (setq method (pop methods))
        ;; Only do each method once, in case the methods appear more
        ;; than once in this list.
-       (unless (member method methods)
+       (when (and (not (member method methods))
+                  ;; Check whether the backend exists.
+                  (ignore-errors (gnus-get-function method 'open-server)))
          (if (or debug-on-error debug-on-quit)
              (gnus-read-active-file-1 method force)
            (condition-case ()