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

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

Browse Source
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
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 "U" 'mu4e-unmark-all)
(define-key map "x" 'mu4e-execute-marks) (define-key map "x" 'mu4e-execute-marks)
(define-key map "a" 'mu4e-hdrs-action)
;; message composition ;; message composition
(define-key map "R" 'mu4e-compose-reply) (define-key map "R" 'mu4e-compose-reply)
(define-key map "F" 'mu4e-compose-forward) (define-key map "F" 'mu4e-compose-forward)
@ -892,7 +894,6 @@ for draft messages."
;; talk to the backend ;; talk to the backend
(mu4e-proc-compose compose-type docid)))))) (mu4e-proc-compose compose-type docid))))))
(defun mu4e-compose-reply () (defun mu4e-compose-reply ()
"Reply to the current message." "Reply to the current message."
(interactive) (mu4e-compose 'reply)) (interactive) (mu4e-compose 'reply))
@ -908,6 +909,15 @@ for draft messages."
(defun mu4e-compose-new () (defun mu4e-compose-new ()
"Compose a new message." "Compose a new message."
(interactive) (mu4e-compose 'new)) (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) (provide 'mu4e-hdrs)