[Emacs-diffs] [emacs] 01/01: Don't query on Gnus exits from ephemeral groups

[Lars Ingebrigtsen]

larsi pushed a commit to branch master
in repository emacs.

commit ba88f195330c513423feed4e5db4122c0e674e22
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Fri Nov 14 04:24:14 2014 +0100

    Don't query on Gnus exits from ephemeral groups
    
    * gnus-sum.el (gnus-summary-exit-no-update): Don't query about
    discarding changes in ephemeral groups.
---
 lisp/gnus/ChangeLog   |    3 +++
 lisp/gnus/gnus-sum.el |    1 +
 2 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6c959c1..e107dbd 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-14  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * gnus-sum.el (gnus-summary-exit-no-update): Don't query about
+       discarding changes in ephemeral groups.
+
        * ietf-drums.el (ietf-drums-parse-address): Don't issue warnings about
        things the user isn't interested in.
 
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 55a263d..69bb106 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7334,6 +7334,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
         (gnus-group-is-exiting-without-update-p t)
         (quit-config (gnus-group-quit-config group)))
     (when (or no-questions
+             (gnus-ephemeral-group-p group)
              gnus-expert-user
              (gnus-y-or-n-p "Discard changes to this group and exit? "))
       (gnus-async-halt-prefetch)