Extend `gnus-interactive-exit' to `quiet'.
authorLars Magne Ingebrigtsen <larsi@tmp-office.(none)>
Sat, 10 Sep 2011 21:29:08 +0000 (23:29 +0200)
committerLars Magne Ingebrigtsen <larsi@tmp-office.(none)>
Sat, 10 Sep 2011 21:29:08 +0000 (23:29 +0200)
lisp/ChangeLog
lisp/gnus-sum.el
lisp/gnus.el
texi/ChangeLog
texi/gnus.texi

index eed16db..7328f41 100644 (file)
@@ -1,6 +1,9 @@
 2011-09-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.el (gnus-article-mark-lists): Remove `recent'.
+       (gnus-interactive-exit): Extend to `quiet'.
+
+       * gnus-sum.el (gnus-offer-save-summaries): Use it.
 
        * gnus-art.el (gnus-treat-hide-citation-maybe): Add more doc to the
        string.
index 239247e..d5889fb 100644 (file)
@@ -12582,12 +12582,16 @@ UNREAD is a sorted list."
     ;; Go through all these summary buffers and offer to save them.
     (when buffers
       (save-excursion
-       (map-y-or-n-p
-        "Update summary buffer %s? "
-        (lambda (buf)
-          (switch-to-buffer buf)
-          (gnus-summary-exit))
-        buffers)))))
+       (if (eq gnus-interactive-exit 'quiet)
+           (dolist (buffer buffers)
+             (switch-to-buffer buf)
+             (gnus-summary-exit))
+         (map-y-or-n-p
+          "Update summary buffer %s? "
+          (lambda (buf)
+            (switch-to-buffer buf)
+            (gnus-summary-exit))
+          buffers))))))
 
 (defun gnus-summary-setup-default-charset ()
   "Setup newsgroup default charset."
index 0c1bcbe..b5f7b72 100644 (file)
@@ -1590,7 +1590,9 @@ commands will still require prompting."
   :type 'boolean)
 
 (defcustom gnus-interactive-exit t
-  "*If non-nil, require your confirmation when exiting Gnus."
+  "*If non-nil, require your confirmation when exiting Gnus.
+If `quiet', update any active summary buffers automatically
+first before exiting."
   :group 'gnus-exit
   :type 'boolean)
 
index 44a57d3..49537a2 100644 (file)
@@ -1,6 +1,7 @@
 2011-09-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi: Remove mentions of `recent', which are now obsolete.
+       (Interactive): Document `quiet'.
 
 2011-07-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
index 307c5c3..7ce75ac 100644 (file)
@@ -22256,8 +22256,9 @@ is @code{t} by default.
 
 @item gnus-interactive-exit
 @vindex gnus-interactive-exit
-Require confirmation before exiting Gnus.  This variable is @code{t} by
-default.
+If non-@code{nil}, require a confirmation when exiting Gnus.  If
+@code{quiet}, update any active summary buffers automatically without
+querying.  The default value is @code{t}.
 @end table