(gnus-get-unread-articles): Do nothing for foreign groups if the group level

 is higher than the specified value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7acbd8..d10f8e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-start.el (gnus-get-unread-articles): Do nothing for foreign
+       groups if the group level is higher than the specified value.
+
 2004-05-18  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-group.el (gnus-group-jump-to-group-prompt): Allow an alist.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 75fa5ea..725fbfd 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1676,17 +1676,19 @@ newsgroup."
 
       (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)))
-              ;; Let the Gnus agent save the active file.
-              (when (and gnus-agent active (gnus-online method))
-                (gnus-agent-save-group-info
-                 method (gnus-group-real-name group) active))
-              (unless (inline (gnus-virtual-group-p group))
-                (inline (gnus-close-group group)))
-              (when (fboundp (intern (concat (symbol-name (car method))
-                                             "-request-update-info")))
-                (inline (gnus-request-update-info info method)))))
+            (if (<= (gnus-info-level info) foreign-level)
+                (when (and (<= (gnus-info-level info) foreign-level)
+                           (setq active (gnus-activate-group group 'scan)))
+                  ;; Let the Gnus agent save the active file.
+                  (when (and gnus-agent active (gnus-online method))
+                    (gnus-agent-save-group-info
+                     method (gnus-group-real-name group) active))
+                  (unless (inline (gnus-virtual-group-p group))
+                    (inline (gnus-close-group group)))
+                  (when (fboundp (intern (concat (symbol-name (car method))
+                                                 "-request-update-info")))
+                    (inline (gnus-request-update-info info method))))
+              (setq active 'ignore)))
            ;; These groups are native or secondary.
            ((> (gnus-info-level info) level)
             ;; We don't want these groups.