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

* mu4e-hdrs.el: add support for arbitrary actions

This commit is contained in:
djcb 2012-04-20 18:23:16 +03:00
parent b99f3612ea
commit b3ba3d94be
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
emacs/mu4e-hdrs.el
View File

@ -278,6 +278,8 @@ after the end of the search results."
(define-key map "U" 'mu4e-unmark-all)
(define-key map "x" 'mu4e-execute-marks)
(define-key map "a" 'mu4e-hdrs-action)
;; message composition
(define-key map "R" 'mu4e-compose-reply)
(define-key map "F" 'mu4e-compose-forward)
@ -892,7 +894,6 @@ for draft messages."
;; talk to the backend
(mu4e-proc-compose compose-type docid))))))
(defun mu4e-compose-reply ()
"Reply to the current message."
(interactive) (mu4e-compose 'reply))
@ -908,6 +909,15 @@ for draft messages."
(defun mu4e-compose-new ()
"Compose a new message."
(interactive) (mu4e-compose 'new))
(defun mu4e-hdrs-action ()
"Ask user what to do with message-at-point, then do it. The
actions are specified in `mu4e-headers-actions'."
(interactive)
(let ((msg (mu4e-message-at-point t))
(actionfunc (mu4e-choose-action "Action: " mu4e-headers-actions)))
(funcall actionfunc msg)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'mu4e-hdrs)