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.
+