(gnus-summary-next-group-on-exit): New variable. Tell if, on summary

exit, the next group has to be selected.
(gnus-summary-exit): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35d0fbe..b25e9e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-05-11  Micha\e,Ak\e(Bl Cadilhac  <michael@cadilhac.name>
+
+       * gnus-sum.el (gnus-summary-next-group-on-exit): New variable.  Tell if, on
+       summary exit, the next group has to be selected.
+       (gnus-summary-exit): Use it.
+
 2007-05-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-article-mode): Fix comment about displaying

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2b13a08..d738d95 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -62,6 +62,14 @@ it will be killed sometime later."
   :group 'gnus-summary-exit
   :type 'boolean)
 
+(defcustom gnus-summary-next-group-on-exit t
+  "If non-nil, go to the next unread newsgroup on summary exit.
+See `gnus-group-goto-unread'."
+  :link '(custom-manual "(gnus)Group Maneuvering")
+  :group 'gnus-summary-exit
+  :version "23.0" ;; No Gnus
+  :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
@@ -6955,6 +6963,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (gnus-group-jump-to-group group))
     (gnus-run-hooks 'gnus-summary-exit-hook)
     (unless (or quit-config
+               (not gnus-summary-next-group-on-exit)
                ;; If this group has disappeared from the summary
                ;; buffer, don't skip forwards.
                (not (string= group (gnus-group-group-name))))