mirror of https://github.com/djcb/mu.git
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:
parent
3375a95f24
commit
93f3a2da35
|
@ -466,6 +466,7 @@ If there is not e-mail address at point, do nothing."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((thing (and (thing-at-point 'email)
|
(let* ((thing (and (thing-at-point 'email)
|
||||||
(string-trim (thing-at-point 'email 'no-props) "<" ">")))
|
(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))))
|
(thing (or thing (thing-at-point 'url 'no-props))))
|
||||||
(when thing
|
(when thing
|
||||||
(kill-new thing)
|
(kill-new thing)
|
||||||
|
|
Loading…
Reference in New Issue