projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Feedback T-gnus 6.16.
[elisp/gnus.git-]
/
lisp
/
gnus-topic.el
diff --git
a/lisp/gnus-topic.el
b/lisp/gnus-topic.el
index
07d501c
..
2352e2b
100644
(file)
--- a/
lisp/gnus-topic.el
+++ b/
lisp/gnus-topic.el
@@
-436,6
+436,8
@@
If LOWEST is non-nil, list all newsgroups of level LOWEST or higher."
(and gnus-group-listed-groups
(copy-sequence gnus-group-listed-groups))))
(and gnus-group-listed-groups
(copy-sequence gnus-group-listed-groups))))
+ (gnus-update-format-specifications nil 'topic)
+
(when (or (not gnus-topic-alist)
(not gnus-topology-checked-p))
(gnus-topic-check-topology))
(when (or (not gnus-topic-alist)
(not gnus-topology-checked-p))
(gnus-topic-check-topology))
@@
-753,7
+755,7
@@
articles in the topic and its subtopics."
(not (gnus-topic-goto-topic (caaar tp))))
(pop tp))
(if tp
(not (gnus-topic-goto-topic (caaar tp))))
(pop tp))
(if tp
- (forward-line 1)
+ (gnus-topic-forward-topic 1)
(gnus-topic-goto-missing-topic (caadr top)))))
nil))
(gnus-topic-goto-missing-topic (caadr top)))))
nil))
@@
-928,8
+930,8
@@
articles in the topic and its subtopics."
? ))
(yanked (list group))
alist talist end)
? ))
(yanked (list group))
alist talist end)
- ;; Then we enter the yanked groups into the topics they belong
- ;; to.
+ ;; Then we enter the yanked groups into the topics
+ ;; they belong to.
(when (setq alist (assoc (save-excursion
(forward-line -1)
(or
(when (setq alist (assoc (save-excursion
(forward-line -1)
(or