From b2901115602b0e6927da76f8eba048e645b84fb7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 19 May 2004 01:01:00 +0000 Subject: [PATCH] Synch to No Gnus 200405190100. --- lisp/ChangeLog | 5 +++++ lisp/gnus-start.el | 24 +++++++++++++----------- 2 files changed, 18 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d7acbd8..d10f8e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-05-19 Katsumi Yamaoka + + * gnus-start.el (gnus-get-unread-articles): Do nothing for foreign + groups if the group level is higher than the specified value. + 2004-05-18 Reiner Steib * gnus-group.el (gnus-group-jump-to-group-prompt): Allow an alist. diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index f2a065f..80a7fd3 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1697,17 +1697,19 @@ newsgroup." (cond ((and method (eq method-type 'foreign)) ;; These groups are foreign. Check the level. - (when (and (<= (gnus-info-level info) foreign-level) - (setq active (gnus-activate-group group 'scan))) - ;; Let the Gnus agent save the active file. - (when (and gnus-agent active (gnus-online method)) - (gnus-agent-save-group-info - method (gnus-group-real-name group) active)) - (unless (inline (gnus-virtual-group-p group)) - (inline (gnus-close-group group))) - (when (fboundp (intern (concat (symbol-name (car method)) - "-request-update-info"))) - (inline (gnus-request-update-info info method))))) + (if (<= (gnus-info-level info) foreign-level) + (when (and (<= (gnus-info-level info) foreign-level) + (setq active (gnus-activate-group group 'scan))) + ;; Let the Gnus agent save the active file. + (when (and gnus-agent active (gnus-online method)) + (gnus-agent-save-group-info + method (gnus-group-real-name group) active)) + (unless (inline (gnus-virtual-group-p group)) + (inline (gnus-close-group group))) + (when (fboundp (intern (concat (symbol-name (car method)) + "-request-update-info"))) + (inline (gnus-request-update-info info method)))) + (setq active 'ignore))) ;; These groups are native or secondary. ((> (gnus-info-level info) level) ;; We don't want these groups. -- 1.7.10.4