# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283817656 0
# Node ID db1e98f7484b5e2df5c852a1e85112e05cc3cd8f
# Parent  91bdd0141c6e3fed48585eaa94a1b0e1d94022ca
gnus-start.el (gnus-get-unread-articles): If being given an explicit level to get unread articles from, then use that for foreign groups, too.

diff -r 91bdd0141c6e -r db1e98f7484b lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Sep 06 23:58:34 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Sep 07 00:00:56 2010 +0000
@@ -1,5 +1,9 @@
 2010-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-start.el (gnus-get-unread-articles): If being given an explicit
+	level to get unread articles from, then use that for foreign groups,
+	too.
+
 	* gnus-html.el (gnus-html-wash-tags): Remove <a name...> tags, which
 	confuses the rest of the function.
 
diff -r 91bdd0141c6e -r db1e98f7484b lisp/gnus/gnus-start.el
--- a/lisp/gnus/gnus-start.el	Mon Sep 06 23:58:34 2010 +0000
+++ b/lisp/gnus/gnus-start.el	Tue Sep 07 00:00:56 2010 +0000
@@ -1677,14 +1677,16 @@
   (let* ((newsrc (cdr gnus-newsrc-alist))
 	 (alevel (or level gnus-activate-level (1+ gnus-level-subscribed)))
 	 (foreign-level
-	  (min
-	   (cond ((and gnus-activate-foreign-newsgroups
-		       (not (numberp gnus-activate-foreign-newsgroups)))
-		  (1+ gnus-level-subscribed))
-		 ((numberp gnus-activate-foreign-newsgroups)
-		  gnus-activate-foreign-newsgroups)
-		 (t 0))
-	   alevel))
+	  (or
+	   level
+	   (min
+	    (cond ((and gnus-activate-foreign-newsgroups
+			(not (numberp gnus-activate-foreign-newsgroups)))
+		   (1+ gnus-level-subscribed))
+		  ((numberp gnus-activate-foreign-newsgroups)
+		   gnus-activate-foreign-newsgroups)
+		  (t 0))
+	    alevel)))
 	 (methods-cache nil)
 	 (type-cache nil)
 	 (gnus-agent-article-local-times 0)