From cdad7ab25bd273fbf8631b24a55977dac5072b23 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 7 Sep 2010 00:00:56 +0000 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-start.el | 18 ++++++++++-------- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2adcc66d917..7bd62149c95 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,9 @@ 2010-09-06 Lars Magne Ingebrigtsen + * 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 tags, which confuses the rest of the function. diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index a349475dbf5..2af55fc7a86 100644 --- 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) -- 2.39.2