From 3375a95f2436bbc1a9a25f7dcba506a547f5321c Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Mon, 28 Nov 2022 04:47:41 -0600 Subject: [PATCH 1/2] Whitespace fix Allow aggressive-indent-mode to do its thing. --- mu4e/mu4e-helpers.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mu4e/mu4e-helpers.el b/mu4e/mu4e-helpers.el index 1da31197..aae37874 100644 --- a/mu4e/mu4e-helpers.el +++ b/mu4e/mu4e-helpers.el @@ -465,8 +465,8 @@ http://cr.yp.to/proto/maildir.html." 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 (thing-at-point 'url 'no-props)))) + (string-trim (thing-at-point 'email 'no-props) "<" ">"))) + (thing (or thing (thing-at-point 'url 'no-props)))) (when thing (kill-new thing) (mu4e-message "Copied '%s' to kill-ring" thing)))) From 93f3a2da355fe5e78e88693a3ce989804fb597a5 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Mon, 28 Nov 2022 04:48:10 -0600 Subject: [PATCH 2/2] 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)