From 78b6f3c7f0233d198a6a4de6c5640d275140cdd3 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 11 Oct 2010 12:00:21 +0200 Subject: [PATCH] (gnus-topic-read-group): If after the last group, select the last group. --- lisp/ChangeLog | 5 +++++ lisp/gnus-topic.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb3f1844f..d37a7ed7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-11 Lars Magne Ingebrigtsen + + * gnus-topic.el (gnus-topic-read-group): If after the last group, + select the last group. + 2010-10-11 Teodor Zlatanov * 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 efa543f68..e4afc7c2f 100644 --- 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))) -- 2.25.1