Re: Exiting groups moves the cursor to next line

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Tue, May 08 2007, Michaël Cadilhac wrote:

> Speaking of  which, I've  always been bothered  by a  similar feature:
> when exiting  a summary  buffer, the next  group line is  selected. In
> fact, if I want  the next group to be selected, I  just don't exit the
> group and continue `n'-ing.
>
> Can we make it customizable?

Good idea.  A user in de.comm.software.gnus also requested this some
time ago.  Back then, I've prepared the following patch:

--8<---------------cut here---------------start------------->8---
--- gnus-group.el	24 Jan 2007 07:15:37 -0000	7.92
+++ gnus-group.el	8 May 2007 17:32:51 -0000
@@ -93,6 +93,14 @@
   :group 'gnus-group-various
   :type 'boolean)
 
+(defcustom gnus-group-goto-next-group t
+  "If non-nil, the cursor will move to the group on summary exit.
+See `gnus-group-goto-unread'."
+  :link '(custom-manual "(gnus)Group Maneuvering")
+  :group 'gnus-group-various
+  :version "23.0" ;; No Gnus
+  :type 'boolean)
+
 (defcustom gnus-goto-next-group-when-activating t
   "*If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
   :link '(custom-manual "(gnus)Scanning New Messages")

--- gnus-sum.el	19 Jul 2006 09:07:52 -0000	7.156
+++ gnus-sum.el	31 Aug 2006 20:19:18 -0000
@@ -6878,6 +6878,7 @@
       (gnus-group-jump-to-group group))
     (gnus-run-hooks 'gnus-summary-exit-hook)
     (unless (or quit-config
+		(not gnus-group-goto-next-group)
 		;; If this group has disappeared from the summary
 		;; buffer, don't skip forwards.
 		(not (string= group (gnus-group-group-name))))
--8<---------------cut here---------------end--------------->8---

> --- lisp/gnus-sum.el	27 Apr 2007 08:39:17 -0000	7.182
> +++ lisp/gnus-sum.el	8 May 2007 12:57:23 -0000
> @@ -62,6 +62,11 @@
>    :group 'gnus-summary-exit
>    :type 'boolean)
>
> +(defcustom gnus-next-group-on-exit t
> +  "*If non-nil, go to the next unread newsgroup on summary exit."
> +  :group 'gnus-summary-exit
> +  :type 'boolean)

Please don't add a "*" when introducing a new defcustom (it's useless)
and add a custom version (see above).  Documentation in the manual and
a custom-manual link would also be nice.

Beside these remarks, I don't have a strong opinion which version we
use.  Do you have commit access now?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/