Mercurial > emacs

changeset 110256:db1e98f7484b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 07 Sep 2010 00:00:56 +0000
parents 91bdd0141c6e
children 650122532cd3
files lisp/gnus/ChangeLog lisp/gnus/gnus-start.el
diffstat 2 files changed, 14 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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.
 
--- 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)