Merge pull request #2371 from vermiculus/sa/copy-link-at-point

Teach mu4e-copy-thing-at-point about SHR links
2022-11-30 23:35:49 +02:00
parent 39a2c28777 93f3a2da35
commit 9ce5a22275
1 changed files with 3 additions and 2 deletions
--- 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)