diff options
| author | Lars Magne Ingebrigtsen | 2014-11-14 04:24:14 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2014-11-14 04:24:14 +0100 |
| commit | ba88f195330c513423feed4e5db4122c0e674e22 (patch) | |
| tree | 22d154adc431684d398adc83f19d1f7faef88cdd | |
| parent | d8c3c57eec04ea52917d0ecf0eb0e291a5f99b4a (diff) | |
| download | emacs-ba88f195330c513423feed4e5db4122c0e674e22.tar.gz emacs-ba88f195330c513423feed4e5db4122c0e674e22.zip | |
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.
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6c959c191e1..e107dbd3b5a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2014-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2014-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * gnus-sum.el (gnus-summary-exit-no-update): Don't query about | ||
| 4 | discarding changes in ephemeral groups. | ||
| 5 | |||
| 3 | * ietf-drums.el (ietf-drums-parse-address): Don't issue warnings about | 6 | * ietf-drums.el (ietf-drums-parse-address): Don't issue warnings about |
| 4 | things the user isn't interested in. | 7 | things the user isn't interested in. |
| 5 | 8 | ||
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 55a263d0d79..69bb106728c 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)." | |||
| 7334 | (gnus-group-is-exiting-without-update-p t) | 7334 | (gnus-group-is-exiting-without-update-p t) |
| 7335 | (quit-config (gnus-group-quit-config group))) | 7335 | (quit-config (gnus-group-quit-config group))) |
| 7336 | (when (or no-questions | 7336 | (when (or no-questions |
| 7337 | (gnus-ephemeral-group-p group) | ||
| 7337 | gnus-expert-user | 7338 | gnus-expert-user |
| 7338 | (gnus-y-or-n-p "Discard changes to this group and exit? ")) | 7339 | (gnus-y-or-n-p "Discard changes to this group and exit? ")) |
| 7339 | (gnus-async-halt-prefetch) | 7340 | (gnus-async-halt-prefetch) |