From: yamaoka <yamaoka>
Date: Wed, 19 May 2004 01:01:00 +0000 (+0000)
Subject: Synch to No Gnus 200405190100.
X-Git-Tag: t-gnus-6_17_4-quimby-~921
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2901115602b0e6927da76f8eba048e645b84fb7;p=elisp%2Fgnus.git-

Synch to No Gnus 200405190100.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7acbd8..d10f8e0 100644
--- 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 f2a065f..80a7fd3 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1697,17 +1697,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.