From 93f3a2da355fe5e78e88693a3ce989804fb597a5 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Mon, 28 Nov 2022 04:48:10 -0600 Subject: [PATCH] Teach mu4e-copy-thing-at-point about SHR links This allows one to copy the link behind a link-widget instead of using RET to open it. --- mu4e/mu4e-helpers.el | 1 + 1 file changed, 1 insertion(+) diff --git a/mu4e/mu4e-helpers.el b/mu4e/mu4e-helpers.el index aae37874..fdf62aac 100644 --- a/mu4e/mu4e-helpers.el +++ b/mu4e/mu4e-helpers.el @@ -466,6 +466,7 @@ If there is not e-mail address at point, do nothing." (interactive) (let* ((thing (and (thing-at-point 'email) (string-trim (thing-at-point 'email 'no-props) "<" ">"))) + (thing (or thing (get-text-property (point) 'shr-url))) (thing (or thing (thing-at-point 'url 'no-props)))) (when thing (kill-new thing)