gnus-start.el (gnus-get-unread-articles): If being given an explicit level to get...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2adcc66d917e567c23f6e6036961c2d3bc863398..7bd62149c957640c02f9bdbef80eea1bfa7504ac 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index a349475dbf5c64356f95fe085d2969916c684f47..2af55fc7a8626aa42c1ccc3339ab57483771a396 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1677,14 +1677,16 @@ If SCAN, request a scan of that group as well."
   (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)