From 9402dbec7f726c92de97d35f3a1ebe6ae6195efc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 21 Feb 2001 22:24:11 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-topic.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * gnus-topic.el (gnus-topic-get-new-news-this-topic): Redraw the + current topic. + 2001-02-21 01:00:00 ShengHuo ZHU * 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." -- 1.7.10.4