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

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

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

25
emacs/mu4e-view.el
View File

@ -250,7 +250,7 @@ is nil, and otherwise open it."
(define-key map "." 'mu4e-view-raw-message)
(define-key map "|" 'mu4e-view-pipe)
;; (define-key map "I" 'mu4e-inspect-message)
(define-key map "a" 'mu4e-view-action)
;; intra-message navigation
(define-key map (kbd "SPC") 'scroll-up)
@ -276,8 +276,8 @@ is nil, and otherwise open it."
;; attachments
(define-key map "e" 'mu4e-view-save-attachment)
(define-key map "o" 'mu4e-view-open-attachment)
(define-key map "a" 'mu4e-view-handle-attachment)
(define-key map "A" 'mu4e-view-attachment-action)
;; marking/unmarking
(define-key map (kbd "<backspace>") 'mu4e-mark-for-trash)
(define-key map "d" 'mu4e-view-mark-for-trash)
@ -505,7 +505,6 @@ See the `org-contacts' documentation for more details."
(or (cdr-safe from) ""))
(t (error "Not supported: %S" name-or-email))))))
(defun mu4e-view-wrap-lines ()
"Wrap lines in the message body."
(save-excursion
@ -523,6 +522,7 @@ See the `org-contacts' documentation for more details."
(flush-lines "^[:blank:]*>")
(setq mu4e-cited-hidden t))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Interactive functions
@ -589,6 +589,17 @@ citations."
(when (mu4e-mark-for-delete)
(mu4e-view-message)))
(defun mu4e-view-action (&optional msg)
"Ask user for some action to apply on MSG (or message-at-point,
if nil), then do it. The actions are specified in
`mu4e-view-actions'."
(interactive)
(let* ((msg (or msg (mu4e-message-at-point t)))
(actionfunc (mu4e-choose-action "Action: " mu4e-view-actions)))
(funcall actionfunc msg)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; attachment handling
(defun mu4e--get-attach-num (prompt msg)
@ -673,8 +684,10 @@ PIPECMD is nil, ask user for it."
(index (plist-get att :index)))
(mu4e--temp-action (plist-get msg :docid) index "emacs")))
(defun mu4e-view-handle-attachment (&optional msg)
"Ask user what to do with attachments, then do it."
(defun mu4e-view-attachment-action (&optional msg)
"Ask user what to do with attachments in MSG (or nil to use
message-at-point, then do it. The actions are specified in
`mu4e-view-attachment-actions'."
(interactive)
(let* ((msg (or msg (mu4e-message-at-point t)))
(actionfunc (mu4e-choose-action