(gnus-get-unread-articles): Fix last commit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de839f5..27bed39 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-start.el (gnus-get-unread-articles): Fix last commit.
+
 2004-04-07  Kevin Greiner  <kgreiner@xpediantsolutions.com>
        * gnus-agent.el (gnus-agent-total-fetched-hashtb): New variable.
        (gnus-agent-with-refreshed-group): New macro.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 5d13ab9..c77e00c 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1674,7 +1674,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)))