emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-25 07:28:02 +02:00
Code Issues Releases Wiki Activity

* mu4e: add `mu4e-field-at-point', allow for querying properties of the

Browse Source 
current message in either message view or headers buffer
This commit is contained in:
djcb 2012-04-08 20:29:30 +03:00
parent 2c34ed8182
commit ad7b500c59
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
emacs/mu4e.el
View File

@ -116,12 +116,12 @@ form (QUERY DESCRIPTION KEY), where QUERY is a string with a mu
query, DESCRIPTION is a short description of the query (this will
show up in the UI), and KEY is a shortcut key for the query.")
(defvar mu4e-split-mode nil
"How to show messages / headers; as symbol which is either:
nil: don't split (show either headers or messages, not both)
horizontal: split horizontally (headers on top)
vertical: split vertically (headers on the left).
Also see `mu4e-headers-visible-lines'.")
(defvar mu4e-split-view 'horizontal
"How to show messages / headers; a symbol which is either:
* nil: don't split (show either headers or messages, not both)
* horizontal: split horizontally (headers on top)
* vertical: split vertically (headers on the left). Also see
`mu4e-headers-visible-lines' and `mu4e-headers-visible-columns'.")
;; Sending
(defgroup mu4e-sending nil
@ -216,8 +216,8 @@ designated shortcut character for the maildir.")
(defcustom mu4e-headers-visible-lines 8
"Number of header lines to display for the header view when using
the horizontal split-view."
"Number of lines to display in the header view when using the
horizontal split-view."
:type 'integer
:group 'mu4e-headers)
@ -773,6 +773,30 @@ top level if there is none."
('mu4e-view-mode "(mu4e)Message view")
(t "mu4e"))))
(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."
(let ((msg
(cond
((eq major-mode 'mu4e-hdrs-mode)
(get-text-property (point) 'msg))
((eq major-mode 'mu4e-view-mode)
mu4e--current-msg))))
(unless msg (error "No message at point"))
(plist-get msg field)))
(defun mu4e-kill-buffer-and-window (buf)
"Kill buffer BUF and any of its windows. Like
`kill-buffer-and-window', but can be called from any buffer, and
simply does not attempt to delete the window if there is none,
instead of erroring out."
(when (buffer-live-p buf)
(with-current-buffer buf
(message "deleting all windows showing %S" buf)
(delete-windows-on buf) ;; destroy all windows for this buffer
(kill-buffer))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'mu4e)