Mercurial > emacs
diff lisp/gnus/gnus-start.el @ 110256:db1e98f7484b
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 | 8b5fccbe534c |
children | ed38b7a7f11e |
line wrap: on
line diff
--- 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)