mu4e-view: only kill existing buffer
This commit is contained in:
@ -541,7 +541,11 @@ Or go to the top level if there is none."
|
|||||||
mu4e~headers-last-query)))
|
mu4e~headers-last-query)))
|
||||||
|
|
||||||
(defun mu4e-get-view-buffer ()
|
(defun mu4e-get-view-buffer ()
|
||||||
(get-buffer mu4e~view-buffer-name))
|
"Get the view buffer, if any."
|
||||||
|
(get-buffer
|
||||||
|
(if mu4e-view-use-old
|
||||||
|
mu4e~view-buffer-name
|
||||||
|
gnus-article-buffer)))
|
||||||
|
|
||||||
(defun mu4e-get-headers-buffer ()
|
(defun mu4e-get-headers-buffer ()
|
||||||
(get-buffer mu4e~headers-buffer-name))
|
(get-buffer mu4e~headers-buffer-name))
|
||||||
|
|||||||
@ -50,7 +50,7 @@
|
|||||||
|
|
||||||
(defun mu4e~view-gnus (msg)
|
(defun mu4e~view-gnus (msg)
|
||||||
"View MSG using Gnus' article mode."
|
"View MSG using Gnus' article mode."
|
||||||
(when gnus-article-buffer
|
(when (bufferp gnus-article-buffer)
|
||||||
(kill-buffer gnus-article-buffer))
|
(kill-buffer gnus-article-buffer))
|
||||||
(with-current-buffer (get-buffer-create gnus-article-buffer)
|
(with-current-buffer (get-buffer-create gnus-article-buffer)
|
||||||
(let ((inhibit-read-only t))
|
(let ((inhibit-read-only t))
|
||||||
|
|||||||
Reference in New Issue
Block a user