(gnus-topic-display-missing-topic): Skip past

groups in the parent topic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1ad499..d76078f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-topic.el (gnus-topic-display-missing-topic): Skip past
+       groups in the parent topic.
+
 2006-04-16  Jo\e,Ac\e(Bo Cachopo  <joao.cachopo@inesc-id.pt>  (tiny change)
 
        * spam.el (spam-necessary-extra-headers): Add X-CRM114-Status. 

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 8a873e9..ad39979 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -726,6 +726,9 @@ articles in the topic and its subtopics."
               (not (gnus-topic-goto-missing-topic (caadr parent))))
       (gnus-topic-display-missing-topic (caadr parent))))
   (gnus-topic-goto-missing-topic topic)
+  ;; Skip past all groups in the topic we're in.
+  (while (gnus-group-group-name)
+    (forward-line 1))
   (let* ((top (gnus-topic-find-topology topic))
         (children (cddr top))
         (type (cadr top))