gnus-sum.el (gnus-summary-exit): Make sure to kill article buffer in ephemeral group.
This commit is contained in:
parent
7ebf75b6b2
commit
1a3c720964
2 changed files with 11 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
2011-05-31 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||||
|
|
||||||
|
* gnus-sum.el (gnus-summary-exit): Make sure to kill article buffer in
|
||||||
|
ephemeral group.
|
||||||
|
|
||||||
2011-05-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
2011-05-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||||
|
|
||||||
* gnus-group.el (gnus-group-mark-article-read): It's possible that we
|
* gnus-group.el (gnus-group-mark-article-read): It's possible that we
|
||||||
|
|
|
@ -7194,7 +7194,11 @@ If FORCE (the prefix), also save the .newsrc file(s)."
|
||||||
(article-buffer gnus-article-buffer)
|
(article-buffer gnus-article-buffer)
|
||||||
(mode major-mode)
|
(mode major-mode)
|
||||||
(group-point nil)
|
(group-point nil)
|
||||||
(buf (current-buffer)))
|
(buf (current-buffer))
|
||||||
|
;; `gnus-single-article-buffer' is nil buffer-locally in
|
||||||
|
;; ephemeral group of which summary buffer will be killed,
|
||||||
|
;; but the global value may be non-nil.
|
||||||
|
(single-article-buffer gnus-single-article-buffer))
|
||||||
(unless quit-config
|
(unless quit-config
|
||||||
;; Do adaptive scoring, and possibly save score files.
|
;; Do adaptive scoring, and possibly save score files.
|
||||||
(when gnus-newsgroup-adaptive
|
(when gnus-newsgroup-adaptive
|
||||||
|
@ -7257,7 +7261,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
|
||||||
(gnus-configure-windows 'group 'force)))
|
(gnus-configure-windows 'group 'force)))
|
||||||
|
|
||||||
;; If we have several article buffers, we kill them at exit.
|
;; If we have several article buffers, we kill them at exit.
|
||||||
(unless gnus-single-article-buffer
|
(unless single-article-buffer
|
||||||
(when (gnus-buffer-live-p article-buffer)
|
(when (gnus-buffer-live-p article-buffer)
|
||||||
(with-current-buffer article-buffer
|
(with-current-buffer article-buffer
|
||||||
;; Don't kill sticky article buffers
|
;; Don't kill sticky article buffers
|
||||||
|
|
Loading…
Add table
Reference in a new issue