mirror of https://github.com/djcb/mu.git
mu4e: add action mu4e-action-copy-message-file-path
Allow for copying the file path of the current message; useful for developers.
This commit is contained in:
parent
3a8748c549
commit
95d68b4741
|
@ -94,10 +94,12 @@ return the filename."
|
|||
(while (re-search-forward (format "src=\"cid:%s\""
|
||||
(plist-get attachment :cid)) nil t)
|
||||
(if (plist-get attachment :temp)
|
||||
(replace-match (format "src=\"%s\"" (plist-get attachment :temp)))
|
||||
(replace-match (format "src=\"%s\""
|
||||
(plist-get attachment :temp)))
|
||||
(replace-match (format "src=\"%s%s\"" temporary-file-directory
|
||||
(plist-get attachment :name)))
|
||||
(let ((tmp-attachment-name (format "%s%s" temporary-file-directory
|
||||
(let ((tmp-attachment-name
|
||||
(format "%s%s" temporary-file-directory
|
||||
(plist-get attachment :name))))
|
||||
(mu4e~proc-extract 'save (mu4e-message-field msg :docid)
|
||||
(plist-get attachment :index)
|
||||
|
@ -160,6 +162,16 @@ with `mu4e-compose-attach-captured-message'."
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
(defun mu4e-action-copy-message-file-path (msg)
|
||||
"Save the full path the message file for the current message to
|
||||
the kill-ring."
|
||||
(kill-new (mu4e-message-field msg :path)))
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
(defvar mu4e-org-contacts-file nil
|
||||
|
|
Loading…
Reference in New Issue