projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53b3d70
)
Synch with Oort Gnus.
author
yamaoka
<yamaoka>
Wed, 21 Feb 2001 22:24:11 +0000
(22:24 +0000)
committer
yamaoka
<yamaoka>
Wed, 21 Feb 2001 22:24:11 +0000
(22:24 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-topic.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
b8671f2
..
65a7424
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.
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
(file)
--- 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)
(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."
(defun gnus-topic-move-matching (regexp topic &optional copyp)
"Move all groups that match REGEXP to some topic."