2000-12-20 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-start.el (gnus-group-change-level): Remove group from
	gnus-active-hashtb if real killed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce0da60..3463a35 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-20 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-group-change-level): Remove group from
+       gnus-active-hashtb if real killed.
+
 2000-12-19 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-insert-mime-button): Emacs20 needs local-map.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 9aaaf72..3d1fb72 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1244,7 +1244,9 @@ for new groups, and subscribe the new groups as zombies."
        (unless (gnus-group-foreign-p group)
          (if (= level gnus-level-zombie)
              (push group gnus-zombie-list)
-           (unless (= oldlevel gnus-level-killed)
+           (if (= oldlevel gnus-level-killed)
+               ;; Remove from active hashtb.
+               (unintern group gnus-active-hashtb)
              ;; Don't add it into killed-list if it was killed.
              (push group gnus-killed-list)))))
        (t