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

* don't return to headers view after closing mu4e

Browse Source
This commit is contained in:
djcb
2012-04-10 18:13:03 +03:00
parent 3e723b331a
commit 9c03b76834
3 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
emacs/mu4e-hdrs.el
View File

@ -749,12 +749,11 @@ otherwise, limit to up to `mu4e-search-results-limit'."
(when expr (when expr
(mu4e-hdrs-search expr current-prefix-arg))) (mu4e-hdrs-search expr current-prefix-arg)))
(defun mu4e-hdrs-kill-buffer-and-window () (defun mu4e-hdrs-kill-buffer-and-window ()
"Quit the message view and return to the main view." "Quit the message view and return to the main view."
(interactive) (interactive)
(mu4e-kill-buffer-and-window mu4e-hdrs-buffer) (mu4e-kill-buffer-and-window mu4e-hdrs-buffer)
(mu4e)) (mu4e-main-view))
(defun mu4e-rerun-search () (defun mu4e-rerun-search ()
"Rerun the search for the last search expression; if none exists, "Rerun the search for the last search expression; if none exists,

5
emacs/mu4e-utils.el
View File

@ -312,10 +312,9 @@ point in eiter the headers buffer or the view buffer."
`kill-buffer-and-window', but can be called from any buffer, and `kill-buffer-and-window', but can be called from any buffer, and
simply does not attempt to delete the window if there is none, simply does not attempt to delete the window if there is none,
instead of erroring out." instead of erroring out."
(when (buffer-live-p buf) (when (buffer-live-p buf)
(with-current-buffer buf
((bury-buffer buf) ((bury-buffer buf)
(delete-windows-on buf) ;; destroy all windows for this buffer (delete-windows-on buf) ;; destroy all windows for this buffer
(kill-buffer buf)))) (kill-buffer buf))))
(defun mu4e-select-other-view () (defun mu4e-select-other-view ()

7
emacs/mu4e-view.el
View File

@ -540,11 +540,8 @@ 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) (mu4e-kill-buffer-and-window mu4e-view-buffer))
(with-current-buffer mu4e-view-buffer
;; (mu4e-kill-buffer-and-window mu4e-view-buffer)
(kill-buffer-and-window))))
(defun mu4e-view-next-header () (defun mu4e-view-next-header ()
"View the next header." "View the next header."
(interactive) (interactive)