From 7e58f21f488773b286c6f6b31aba882f0a6ee6e4 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Wed, 26 Feb 2020 21:56:01 +0200 Subject: [PATCH] mu4e-utils: add mu4e-copy-message-path helper --- mu4e/mu4e-utils.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index 4c6ab70e..2ad51d3c 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -81,6 +81,13 @@ NODEFAULT, hour and minute fields will be nil if not given." ;;; Various +(defun mu4e-copy-message-path () + "Copy the message-path of message at point to the kill-ring." + (interactive) + (let ((path (mu4e-message-field-at-point :path))) + (kill-new path) + (mu4e-message "Saved '%s' to kill-ring" path))) + (defun mu4e-user-mail-address-p (addr) "If ADDR is one of user's e-mail addresses return t, nil otherwise. User's addresses are set in `(mu4e-personal-addresses)'. Case