2001-02-21 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-topic.el (gnus-topic-get-new-news-this-topic): Redraw the
	current topic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d96a66b..86eec36 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-21 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-topic.el (gnus-topic-get-new-news-this-topic): Redraw the
+       current topic.
+
 2001-02-21 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * smiley.el (gnus-smiley-display): Don't do widening.

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index fd52534..396fc77 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1384,8 +1384,12 @@ If RECURSIVE is t, unmark its subtopics too."
   (interactive "P")
   (if (not (gnus-group-topic-p))
       (gnus-group-get-new-news-this-group n)
-    (gnus-topic-mark-topic (gnus-group-topic-name) nil (and n t))
-    (gnus-group-get-new-news-this-group)))
+    (let* ((topic (gnus-group-topic-name))
+          (data (cadr (gnus-topic-find-topology topic))))
+      (save-excursion
+       (gnus-topic-mark-topic topic nil (and n t))
+       (gnus-group-get-new-news-this-group))
+      (gnus-topic-remove-topic (eq 'visible (cadr data))))))
 
 (defun gnus-topic-move-matching (regexp topic &optional copyp)
   "Move all groups that match REGEXP to some topic."