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

mu4e: mark attachment-actions non-interactive

Browse Source 
mu4e-view-pipe-attachment, mu4e-view-open-attachment-with and
mu4e-view-open-attachment-emacs are not interactive, so don't mark them
as such.
This commit is contained in:
djcb
2016-11-12 14:00:11 +02:00
parent 10b3352565
commit b2cfc02010
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-view.el
View File

@ -1200,8 +1200,8 @@ offer to save a range of attachments."
(defun mu4e-view-open-attachment (&optional msg attnum) (defun mu4e-view-open-attachment (&optional msg attnum)
"Open attachment number ATTNUM from MSG. "Open attachment number ATTNUM from MSG.
If MSG is nil use the message returned by `message-at-point'. If MSG is nil use the message returned by `message-at-point'. If
If ATTNUM is nil ask for the attachment number." ATTNUM is nil ask for the attachment number."
(interactive) (interactive)
(let* ((msg (or msg (mu4e-message-at-point))) (let* ((msg (or msg (mu4e-message-at-point)))
(attnum (or attnum (attnum (or attnum
@ -1231,7 +1231,6 @@ If ATTNUM is nil ask for the attachment number."
(defun mu4e-view-open-attachment-with (msg attachnum &optional cmd) (defun mu4e-view-open-attachment-with (msg attachnum &optional cmd)
"Open MSG's attachment ATTACHNUM with CMD. "Open MSG's attachment ATTACHNUM with CMD.
If CMD is nil, ask user for it." If CMD is nil, ask user for it."
(interactive)
(let* ((att (mu4e~view-get-attach msg attachnum)) (let* ((att (mu4e~view-get-attach msg attachnum))
(cmd (or cmd (cmd (or cmd
(read-string (read-string
@ -1247,7 +1246,6 @@ If CMD is nil, ask user for it."
(defun mu4e-view-pipe-attachment (msg attachnum &optional pipecmd) (defun mu4e-view-pipe-attachment (msg attachnum &optional pipecmd)
"Feed MSG's attachment ATTACHNUM through pipe PIPECMD. "Feed MSG's attachment ATTACHNUM through pipe PIPECMD.
If PIPECMD is nil, ask user for it." If PIPECMD is nil, ask user for it."
(interactive)
(let* ((att (mu4e~view-get-attach msg attachnum)) (let* ((att (mu4e~view-get-attach msg attachnum))
(pipecmd (or pipecmd (pipecmd (or pipecmd
(read-string (read-string
@ -1261,7 +1259,6 @@ If PIPECMD is nil, ask user for it."
(defun mu4e-view-open-attachment-emacs (msg attachnum) (defun mu4e-view-open-attachment-emacs (msg attachnum)
"Open MSG's attachment ATTACHNUM in the current emacs instance." "Open MSG's attachment ATTACHNUM in the current emacs instance."
(interactive)
(let* ((att (mu4e~view-get-attach msg attachnum)) (let* ((att (mu4e~view-get-attach msg attachnum))
(index (plist-get att :index))) (index (plist-get att :index)))
(mu4e~view-temp-action (mu4e-message-field msg :docid) index "emacs"))) (mu4e~view-temp-action (mu4e-message-field msg :docid) index "emacs")))