diff --git a/lisp/mail/mu4e-configuration.el b/lisp/mail/mu4e-configuration.el index c1a61f6..32809a4 100644 --- a/lisp/mail/mu4e-configuration.el +++ b/lisp/mail/mu4e-configuration.el @@ -165,7 +165,18 @@ (advice-add #'mu4e~headers-thread-prefix :override - #'my/mu4e~headers-thread-prefix)) + #'my/mu4e~headers-thread-prefix) + + (defun mu4e-print-path () + (interactive) + (--> + (mu4e-message-at-point) + (mu4e-message-field it :path) + (progn + (kill-new it) + (message "Path Copied: %s" it)))) + + (define-key mu4e-search-minor-mode-map (kbd "l") #'mu4e-print-path)) (provide 'mu4e-configuration) ;;; mu4e-config.el ends here