Exiting groups moves the cursor to next line (was: exiting digest mails does not move the cursor to next line)

[michael@cadilhac.name (Michaël Cadilhac)]

[-- Attachment #1.1: Type: text/plain, Size: 696 bytes --]

Shanks N <shanks.n@gmail.com> writes:

> Hello,
>
> In the previous version of No gnus 0.4/0.5, entering a nnml group with
> mails in digest format, the following was the behaviour.
>
> 1.  Hit C-d to read the digest mail
> 2.  hit q to quit reading the above
> 3.  Cursor moves to next digest mail
>
> With the version below, the cursor continues to stay on the same mail
> line on the Summary page. 

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?


[-- Attachment #1.2: gnus-sum.patch --]
[-- Type: text/x-patch, Size: 1689 bytes --]

Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 7.182
diff -c -r7.182 gnus-sum.el
*** 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,67 ****
--- 62,72 ----
    :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)
+ 
  (defcustom gnus-fetch-old-headers nil
    "*Non-nil means that Gnus will try to build threads by grabbing old headers.
  If an unread article in the group refers to an older, already
***************
*** 6933,6938 ****
--- 6938,6944 ----
        (gnus-group-jump-to-group group))
      (gnus-run-hooks 'gnus-summary-exit-hook)
      (unless (or quit-config
+ 		(not gnus-next-group-on-exit)
  		;; If this group has disappeared from the summary
  		;; buffer, don't skip forwards.
  		(not (string= group (gnus-group-group-name))))
Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 7.1543
diff -C0 -r7.1543 ChangeLog
*** lisp/ChangeLog	3 May 2007 18:34:28 -0000	7.1543
--- lisp/ChangeLog	8 May 2007 12:57:29 -0000
***************
*** 0 ****
--- 1,6 ----
+ 2007-05-08  Michaël Cadilhac  <michael@cadilhac.name>
+ 
+ 	* gnus-sum.el (gnus-next-group-on-exit): New variable.  Tell if, on
+ 	summary exit, the next group has to be selected.
+ 	(gnus-summary-exit): Use it.
+ 

[-- Attachment #1.3: Type: text/plain, Size: 327 bytes --]


-- 
 |   Michaël `Micha' Cadilhac       |  La meilleure façon                    |
 |   http://michael.cadilhac.name   |     de ne pas avancer,                 |
 |   JID/MSN:                       |  c'est de suivre une idée fixe.        |
 `----  michael.cadilhac@gmail.com  |          -- Jacques Prévert       -  --'

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]