(gnus-agent-regenerate-group): Activate the group when the group's active is

 not available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f4ea126..2724906 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-agent.el (gnus-agent-regenerate-group): Activate the group
+       when the group's active is not available.
+
 2004-03-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 e1786ca..c5e8817 100644 (file)
--- 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)