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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6c959c191e12c7d25d62cf8f9f51abd3b6631961..e107dbd3b5ae22d07c9f62a95fcca19873df69b5 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * 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 55a263d0d7947c014514801442c0491761af9f8e..69bb106728c79f9755b7e71d7aceeb54d1d7d66f 100644 (file)
--- 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)