2001-09-27 Simon Josefsson <jas@extundo.com>

	* gnus-topic.el (gnus-topic-mode-map): Add catchup.
	(gnus-topic-catchup-articles): New function. Suggested by Robin
	S. Socha <robin-dated-1001857693.185e29@socha.net>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5665ee4..0cfb313 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-27  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-topic.el (gnus-topic-mode-map): Add catchup.
+       (gnus-topic-catchup-articles): New function. Suggested by Robin
+       S. Socha <robin-dated-1001857693.185e29@socha.net>.
+
 2001-09-27 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
        From Gerd M\e,Av\e(Bllmann <gerd@gnu.org>.
 

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 09dce2b..62c9179 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1000,6 +1000,7 @@ articles in the topic and its subtopics."
     "\r" gnus-topic-select-group
     " " gnus-topic-read-group
     "\C-c\C-x" gnus-topic-expire-articles
+    "c" gnus-topic-catchup-articles
     "\C-k" gnus-topic-kill-group
     "\C-y" gnus-topic-yank-group
     "\M-g" gnus-topic-get-new-news-this-topic
@@ -1153,6 +1154,18 @@ If performed over a topic line, toggle folding the topic."
        (gnus-group-expire-articles nil))
       (gnus-message 5 "Expiring groups in %s...done" topic))))
 
+(defun gnus-topic-catchup-articles (topic)
+  "Catchup this topic or group.
+Also see `gnus-group-catchup'."
+  (interactive (list (gnus-group-topic-name)))
+  (if (not topic)
+      (call-interactively 'gnus-group-catchup-current)
+    (save-excursion
+      (let ((gnus-group-marked
+            (mapcar (lambda (entry) (car (nth 2 entry)))
+                    (gnus-topic-find-groups topic gnus-level-killed t))))
+       (gnus-group-catchup-current)))))
+
 (defun gnus-topic-read-group (&optional all no-article group)
   "Read news in this newsgroup.
 If the prefix argument ALL is non-nil, already read articles become