diff --git a/mu4e/mu4e-helpers.el b/mu4e/mu4e-helpers.el
index 1da31197..fdf62aac 100644
--- a/mu4e/mu4e-helpers.el
+++ b/mu4e/mu4e-helpers.el
@@ -465,8 +465,9 @@ 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 (get-text-property (point) 'shr-url)))
+         (thing (or thing (thing-at-point 'url 'no-props))))
     (when thing
       (kill-new thing)
       (mu4e-message "Copied '%s' to kill-ring" thing))))