From a324e8230aa1b3e258df36f7661e29fe00e62c5a Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 17 Mar 2004 07:31:35 +0000 Subject: [PATCH] (gnus-agent-regenerate-group): Activate the group when the group's active is not available. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f4ea126a5..272490637 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-03-17 Katsumi Yamaoka + + * gnus-agent.el (gnus-agent-regenerate-group): Activate the group + when the group's active is not available. + 2004-03-15 Katsumi Yamaoka * gnus-agent.el (gnus-agent-read-agentview): Add a missing arg to diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index e1786ca68..c5e881729 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -3634,7 +3634,8 @@ entry of article %s deleted." l1)) ;; recalculate the number of unread articles in the group (let ((group (gnus-group-real-name group)) - (group-active (gnus-active group))) + (group-active (or (gnus-active group) + (gnus-activate-group group)))) (gnus-agent-possibly-alter-active group group-active))))) (when (and reread gnus-agent-article-alist) -- 2.34.1