alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-view.el: fix closing / killing the view buffer

Browse Source
This commit is contained in:
djcb
2012-04-11 18:27:26 +03:00
parent f7335bf6cd
commit 1f4b169a09
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
emacs/mu4e-view.el
View File

@ -457,11 +457,8 @@ number them so they can be opened using `mu4e-view-go-to-url'."
(propertize (format "[%d]" num) (propertize (format "[%d]" num)
'face 'mu4e-view-url-number-face)))))))) 'face 'mu4e-view-url-number-face))))))))
;; functions for org-contacts ;; functions for org-contacts
(defun mu4e-view-snarf-from (name-or-email) (defun mu4e-view-snarf-from (name-or-email)
"Get the From:-data for the current message; NAME-OR-EMAIL should "Get the From:-data for the current message; NAME-OR-EMAIL should
be a symbol 'name or 'email to get the corresponding field. If the be a symbol 'name or 'email to get the corresponding field. If the
@ -540,8 +537,9 @@ citations."
(defun mu4e-view-kill-buffer-and-window () (defun mu4e-view-kill-buffer-and-window ()
"Quit the message view and return to the headers." "Quit the message view and return to the headers."
(interactive) (interactive)
(when (buffer-live-p mu4e-view-buffer)
(with-current-buffer mu4e-view-buffer (with-current-buffer mu4e-view-buffer
(kill-buffer-and-window))) (kill-buffer-and-window))))
(defun mu4e-view-next-header () (defun mu4e-view-next-header ()
"View the next header." "View the next header."
@ -655,6 +653,4 @@ results."
(current-buffer) cmd)) (current-buffer) cmd))
(provide 'mu4e-view) (provide 'mu4e-view)