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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 555998263c82fa801278549439dd837cc744c68b..deb1414b0cffbf783ac799a5160cbf6ffe0ade0e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus-topic.el b/lisp/gnus/gnus-topic.el
index efa543f68d68fb8acb187cbc317bdd96f2b0f4b9..e4afc7c2fb464990d8a85eca2ade5d9920755b8d 100644 (file)
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/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)))