emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-22 07:06:48 +02:00
Code Issues Releases Wiki Activity

Merge pull request #1605 from yellowmoneybank/mm

Browse Source 
mu4e: Fix of the attachment actions
This commit is contained in:
Dirk-Jan C. Binnema 2020-03-04 21:18:25 +02:00 committed by GitHub
commit 5ffe878d30
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-view.el
View File

@ -1421,7 +1421,7 @@ If CMD is nil, ask user for it."
'mu4e~view-open-with-hist)))
(index (plist-get att :index)))
(mu4e~view-temp-action
(mu4e-message-field msg :docid) index "open-with" cmd)))
(mu4e-message-field msg :docid) index 'open-with cmd)))
(defvar mu4e~view-pipe-hist nil
"History list for the pipe argument.")
@ -1437,20 +1437,20 @@ If PIPECMD is nil, ask user for it."
'mu4e~view-pipe-hist)))
(index (plist-get att :index)))
(mu4e~view-temp-action
(mu4e-message-field msg :docid) index "pipe" pipecmd)))
(mu4e-message-field msg :docid) index 'pipe pipecmd)))
(defun mu4e-view-open-attachment-emacs (msg attachnum)
"Open MSG's attachment ATTACHNUM in the current emacs instance."
(let* ((att (mu4e~view-get-attach msg attachnum))
(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)))
(defun mu4e-view-import-attachment-diary (msg attachnum)
"Open MSG's attachment ATTACHNUM in the current emacs instance."
(interactive)
(let* ((att (mu4e~view-get-attach msg attachnum))
(index (plist-get att :index)))
(mu4e~view-temp-action (mu4e-message-field msg :docid) index "diary")))
(mu4e~view-temp-action (mu4e-message-field msg :docid) index 'diary)))
(defun mu4e-view-attachment-action (&optional msg)
"Ask user what to do with attachments in MSG