From: yamaoka <yamaoka>
Date: Wed, 21 Feb 2001 22:24:11 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_0-09-quimby~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9402dbec7f726c92de97d35f3a1ebe6ae6195efc;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8671f2..65a7424 100644
--- 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 e9e56bf..9c654a3 100644
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1385,8 +1385,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."