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

* small fixes / cleanups

Browse Source
This commit is contained in:
djcb
2012-04-29 22:03:27 +03:00
parent 422516a77c
commit f347d5eb1c
3 changed files with 40 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
emacs/mu4e-utils.el
View File

@ -426,7 +426,7 @@ there is no message at point."
(cond
((eq major-mode 'mu4e-hdrs-mode)
(get-text-property (point) 'msg))
((eq major-mode 'mu4e-view-mode)
((eq major-mode 'mu4e-view-mode)
mu4e~view-msg))))
(if (and (null msg) raise-err)
(error "No message at point")
@ -435,7 +435,13 @@ there is no message at point."
(defun mu4e-field-at-point (field)
"Get FIELD (a symbol, see `mu4e-header-names') for the message at
point in eiter the headers buffer or the view buffer."
(plist-get (mu4e-message-at-point t) field))
(plist-get (mu4e-message-at-point t) field))
(defun mu4e-last-query ()
"Get the most recent query or nil if there is none."
(when (buffer-live-p mu4e~hdrs-buffer)
(with-current-buffer mu4e~hdrs-buffer
mu4e~hdrs-query)))
(defun mu4e-select-other-view ()
"When the headers view is selected, select the message view (if
@ -443,7 +449,7 @@ that has a live window), and vice versa."
(interactive)
(let* ((other-buf
(cond
((eq major-mode 'mu4e-hdrs-mode)
((eq major-mode 'mu4e-hdrs-mode)
mu4e~view-buffer)
((eq major-mode 'mu4e-view-mode)
mu4e~hdrs-buffer)))