(gnus-topic-read-group): If after the last group, select the last group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb3f184..d37a7ed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-topic.el (gnus-topic-read-group): If after the last group,
+       select the last group.
+
 2010-10-11  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-int.el (gnus-run-hook-with-args): Autoload from gnus-util.el.

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index efa543f..e4afc7c 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1255,6 +1255,8 @@ that group.
 
 If performed over a topic line, toggle folding the topic."
   (interactive "P")
+  (when (and (eobp) (not (gnus-group-group-name)))
+    (forward-line -1))
   (if (gnus-group-topic-p)
       (let ((gnus-group-list-mode
             (if all (cons (if (numberp all) all 7) t) gnus-group-list-mode)))