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

* s/mu4e-attachments-actions/mu4e-attachment-actions/

Browse Source
This commit is contained in:
djcb
2012-04-21 10:35:30 +03:00
parent ada52dfe80
commit 4a830a8e34
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
emacs/mu4e-utils.el
View File

@ -395,7 +395,7 @@ point in eiter the headers buffer or the view buffer."
(plist-get (mu4e-message-at-point t) field)) (plist-get (mu4e-message-at-point t) field))
(defun mu4e-choose-action (prompt actions) (defun mu4e-choose-action (prompt actions)
"Ask user with PROMPT to choose some action from ACTIONS. ACTIONS "Ask user with PROMPT to choose some action from ACTIONS. ACTIONS
is a list of actions like `mu4e-view-attachment-actions', is a list of actions like `mu4e-view-attachment-actions',
`mu4e-view-actions', `mu4e-header-actions'. Returns the `mu4e-view-actions', `mu4e-header-actions'. Returns the
action (function) to invoke, or nil. " action (function) to invoke, or nil. "

2
emacs/mu4e-vars.el
View File

@ -300,7 +300,7 @@ where:
(defalias 'mu4e-view-open-attachment-emacs 'mu4e--dummy-func) (defalias 'mu4e-view-open-attachment-emacs 'mu4e--dummy-func)
(defalias 'mu4e-view-open-pipe-attachment 'mu4e--dummy-func) (defalias 'mu4e-view-open-pipe-attachment 'mu4e--dummy-func)
(defvar mu4e-view-attachments-actions (defvar mu4e-view-attachment-actions
'( ("open-with" ?w mu4e-view-open-attachment-with) '( ("open-with" ?w mu4e-view-open-attachment-with)
("in-emacs" ?e mu4e-view-open-attachment-emacs) ("in-emacs" ?e mu4e-view-open-attachment-emacs)
("pipe" ?| mu4e-view-pipe-attachment)) ("pipe" ?| mu4e-view-pipe-attachment))

4
emacs/mu4e-view.el
View File

@ -277,7 +277,7 @@ is nil, and otherwise open it."
(define-key map "e" 'mu4e-view-save-attachment) (define-key map "e" 'mu4e-view-save-attachment)
(define-key map "o" 'mu4e-view-open-attachment) (define-key map "o" 'mu4e-view-open-attachment)
(define-key map "A" 'mu4e-view-attachment-action) (define-key map "A" 'mu4e-view-attachment-action)
;; marking/unmarking ;; marking/unmarking
(define-key map (kbd "<backspace>") 'mu4e-mark-for-trash) (define-key map (kbd "<backspace>") 'mu4e-mark-for-trash)
(define-key map "d" 'mu4e-view-mark-for-trash) (define-key map "d" 'mu4e-view-mark-for-trash)
@ -692,7 +692,7 @@ message-at-point, then do it. The actions are specified in
(let* ((msg (or msg (mu4e-message-at-point t))) (let* ((msg (or msg (mu4e-message-at-point t)))
(actionfunc (mu4e-choose-action (actionfunc (mu4e-choose-action
"Action on attachment: " "Action on attachment: "
mu4e-view-attachments-actions)) mu4e-view-attachment-actions))
(attnum (mu4e--get-attach-num "Which attachment" msg))) (attnum (mu4e--get-attach-num "Which attachment" msg)))
(when (and actionfunc attnum) (when (and actionfunc attnum)
(funcall actionfunc msg attnum)))) (funcall actionfunc msg attnum))))