Synch to No Gnus 200404081602.

[elisp/gnus.git-] / lisp / gnus-start.el

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index f39a7d4..6ffb8a1 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1695,7 +1695,7 @@ newsgroup."
                     'foreign)))
        (push (cons method method-type) type-cache))
 
-      (cond ((eq method-type 'foreign)
+      (cond ((and method (eq method-type 'foreign))
             ;; These groups are foreign.  Check the level.
             (when (and (<= (gnus-info-level info) foreign-level)
                        (setq active (gnus-activate-group group 'scan)))