emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-view-gnus: better cleanup buffer 

avoid seeing leftover MIME-parts of older buffers.
This commit is contained in:
Dirk-Jan C. Binnema 2021-04-25 13:44:57 +03:00
parent 704e631e8d
commit 15ab2c8d3a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-view-gnus.el
View File

@ -50,6 +50,8 @@
(defun mu4e~view-gnus (msg)
"View MSG using Gnus' article mode."
(when gnus-article-buffer
(kill-buffer gnus-article-buffer))
(with-current-buffer (get-buffer-create gnus-article-buffer)
(let ((inhibit-read-only t))
(erase-buffer)
@ -120,14 +122,13 @@ buffer BUF."
(mu4e-view-mode)
(run-hooks 'gnus-article-decode-hook)
(gnus-article-prepare-display)
(setq mu4e~gnus-article-mime-handles gnus-article-mime-handles)
(mu4e~view-activate-urls)
(setq gnus-article-decoded-p gnus-article-decode-hook)
(setq mu4e~gnus-article-mime-handles gnus-article-mime-handles
gnus-article-decoded-p gnus-article-decode-hook)
(set-buffer-modified-p nil)
(add-hook 'kill-buffer-hook #'mu4e~view-kill-buffer-hook-function)))
(add-hook 'kill-buffer-hook #'mu4e~view-kill-mime-handles)))
(defun mu4e~view-kill-buffer-hook-function ()
;; cleanup the mm-* buffers that the view spawns
(defun mu4e~view-kill-mime-handles ()
"Kill cached MIME-handles, if any."
(when mu4e~gnus-article-mime-handles
(mm-destroy-parts mu4e~gnus-article-mime-handles)
(setq mu4e~gnus-article-mime-handles nil)))