diff options
| author | Lars Ingebrigtsen | 2012-02-06 22:44:51 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2012-02-06 22:44:51 +0100 |
| commit | 155628057e1fc9dee052303df2ab7ff1ee5f08a8 (patch) | |
| tree | e7364b5b47226b61fb86a42bbcb60c2279171d02 | |
| parent | 7dd679eb09f65d0a83e14168b005ffc8270e7d05 (diff) | |
| download | emacs-155628057e1fc9dee052303df2ab7ff1ee5f08a8.tar.gz emacs-155628057e1fc9dee052303df2ab7ff1ee5f08a8.zip | |
Minor Gnus group exit fix
* gnus-sum.el (gnus-handle-ephemeral-exit): Allow exiting from Gnus
when just reading a single group from "without" Gnus.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 493734dc7bf..1d0e36d6479 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-02-06 Lars Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-sum.el (gnus-handle-ephemeral-exit): Allow exiting from Gnus | ||
| 4 | when just reading a single group from "without" Gnus. | ||
| 5 | |||
| 1 | 2012-02-06 Chong Yidong <cyd@gnu.org> | 6 | 2012-02-06 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * gnus-sum.el (gnus-summary-show-thread): | 8 | * gnus-sum.el (gnus-summary-show-thread): |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 7b234a3df22..c7f80ec1512 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -7352,7 +7352,7 @@ If FORCE (the prefix), also save the .newsrc file(s)." | |||
| 7352 | (defun gnus-handle-ephemeral-exit (quit-config) | 7352 | (defun gnus-handle-ephemeral-exit (quit-config) |
| 7353 | "Handle movement when leaving an ephemeral group. | 7353 | "Handle movement when leaving an ephemeral group. |
| 7354 | The state which existed when entering the ephemeral is reset." | 7354 | The state which existed when entering the ephemeral is reset." |
| 7355 | (if (not (buffer-name (car quit-config))) | 7355 | (if (not (buffer-live-p (car quit-config))) |
| 7356 | (gnus-configure-windows 'group 'force) | 7356 | (gnus-configure-windows 'group 'force) |
| 7357 | (set-buffer (car quit-config)) | 7357 | (set-buffer (car quit-config)) |
| 7358 | (unless (eq (cdr quit-config) 'group) | 7358 | (unless (eq (cdr quit-config) 'group) |