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-utils.el: warn when no actions are defined + some cosmetics

Browse Source
This commit is contained in:
djcb 2012-04-20 08:46:05 +03:00
parent bff93c9962
commit e0db2dcfb2
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
emacs/mu4e-utils.el
View File

@ -397,11 +397,13 @@ point in eiter the headers buffer or the view buffer."
is a list of actions like `mu4e-view-attachments-actions', is a list of actions like `mu4e-view-attachments-actions',
`mu4e-view-actions', `mu4e-header-actions'. Then, call the function `mu4e-view-actions', `mu4e-header-actions'. Then, call the function
for this action, with the currrent message plist as the argument." for this action, with the currrent message plist as the argument."
(if (null actions)
(message "No actions of this type defined")
(let ((kar (mu4e-read-option prompt actions))) (let ((kar (mu4e-read-option prompt actions)))
(dolist (action actions) (dolist (action actions)
(let ((shortcut (cadr action)) (func (nth 2 action))) (let ((shortcut (cadr action)) (func (nth 2 action)))
(when (eq kar shortcut) (when (eq kar shortcut)
(funcall func msg)))))) (funcall func msg)))))))
(defun mu4e-capture-message () (defun mu4e-capture-message ()
"Capture the path of the message at point." "Capture the path of the message at point."