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.
This commit is contained in:
Sean Allred 2022-11-28 04:48:10 -06:00
parent 3375a95f24
commit 93f3a2da35
1 changed files with 1 additions and 0 deletions

View File

@ -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)