From b292ff276a99d77b8540e111aca085478131a479 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 21 May 2004 04:03:38 +0000 Subject: [PATCH] (gnus-get-unread-articles): Fix previous commit. --- lisp/gnus-start.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index db9013417..6a43ff390 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1643,7 +1643,7 @@ newsgroup." (methods-cache nil) (type-cache nil) scanned-methods info group active method retrieve-groups cmethod - method-type) + method-type ignore) (gnus-message 6 "Checking new news...") (while newsrc @@ -1680,6 +1680,7 @@ newsgroup." 'foreign))) (push (cons method method-type) type-cache)) + (setq ignore nil) (cond ((and method (eq method-type 'foreign)) ;; These groups are foreign. Check the level. (if (<= (gnus-info-level info) foreign-level) @@ -1694,7 +1695,7 @@ newsgroup." (when (fboundp (intern (concat (symbol-name (car method)) "-request-update-info"))) (inline (gnus-request-update-info info method)))) - (setq active nil))) + (setq ignore t))) ;; These groups are native or secondary. ((> (gnus-info-level info) level) ;; We don't want these groups. @@ -1734,7 +1735,8 @@ newsgroup." ;; Don't do anything. ) (active - (inline (gnus-get-unread-articles-in-group info active t))) + (unless ignore + (inline (gnus-get-unread-articles-in-group info active t)))) (t ;; The group couldn't be reached, so we nix out the number of ;; unread articles and stuff. -- 2.25.1