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

* mu4e-utils: fix silly extra set of parentheses - thanks to James Ladan

This commit is contained in:
djcb 2012-04-11 00:33:23 +03:00
parent 9c03b76834
commit 7adc7b38b0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
emacs/mu4e-utils.el
View File

@ -4,7 +4,7 @@
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
;; ;;
;; GNU Emacs is free software: you can redistribute it and/or modify ;; GNU Emacs is free software: you can redistribute it and/or modify
@ -297,24 +297,24 @@ top level if there is none."
(defun mu4e-field-at-point (field) (defun mu4e-field-at-point (field)
"Get FIELD (a symbol, see `mu4e-header-names') for the message at "Get FIELD (a symbol, see `mu4e-header-names') for the message at
point in eiter the headers buffer or the view buffer." point in eiter the headers buffer or the view buffer."
(let ((msg (let ((msg
(cond (cond
((eq major-mode 'mu4e-hdrs-mode) ((eq major-mode 'mu4e-hdrs-mode)
(get-text-property (point) 'msg)) (get-text-property (point) 'msg))
((eq major-mode 'mu4e-view-mode) ((eq major-mode 'mu4e-view-mode)
mu4e-current-msg)))) mu4e-current-msg))))
(unless msg (error "No message at point")) (unless msg (error "No message at point"))
(plist-get msg field))) (plist-get msg field)))
(defun mu4e-kill-buffer-and-window (buf) (defun mu4e-kill-buffer-and-window (buf)
"Kill buffer BUF and any of its windows. Like "Kill buffer BUF and any of its windows. Like
`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)
((bury-buffer buf) (bury-buffer)
(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 ()
"When the headers view is selected, select the message view (if "When the headers view is selected, select the message view (if