From: Lars Magne Ingebrigtsen Date: Mon, 11 Oct 2010 11:02:17 +0000 (+0000) Subject: gnus-topic.el (gnus-topic-read-group): If after the last group, select the last group. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~46^2~65 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ec07c5ad9aa8b9292025e0f9ed820b678852896;p=emacs.git 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 555998263c8..deb1414b0cf 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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/gnus-topic.el b/lisp/gnus/gnus-topic.el index efa543f68d6..e4afc7c2fb4 100644 --- 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)))