(gnus-get-unread-articles-in-group): Don't do

[gnus] / lisp / gnus-start.el

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 5d13ab9..75fa5ea 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1525,7 +1525,7 @@ newsgroup."
             active)))))
 
 (defun gnus-get-unread-articles-in-group (info active &optional update)
-  (when active
+  (when (and info active)
     ;; Allow the backend to update the info in the group.
     (when (and update
               (gnus-request-update-info
@@ -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)))