Don't reuse the 'gnus-data text property, but use a new property.

This avoids stomping over other functions that use this for other
things.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 56e78cc..944e65d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7832,8 +7832,8 @@ specified by `gnus-button-alist'."
                                         'gnus-button-push from)
                (gnus-put-text-property
                 start end
-                'gnus-data (buffer-substring-no-properties
-                            start end))))))))))
+                'gnus-string (buffer-substring-no-properties
+                              start end))))))))))
 
 (defun gnus-article-extend-url-button (beg start end)
   "Extend url button if url is folded into two or more lines.
@@ -7945,7 +7945,7 @@ url is put as the `gnus-button-url' overlay property on the button."
   "Copy the string in the button to the kill ring."
   (interactive)
   (gnus-article-check-buffer)
-  (let ((data (get-text-property (point) 'gnus-data)))
+  (let ((data (get-text-property (point) 'gnus-string)))
     (when data
       (with-temp-buffer
        (insert data)

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 6687415..9f530fb 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -184,6 +184,7 @@ fit these criteria."
          (let ((overlay (gnus-make-overlay start end)))
            (gnus-overlay-put overlay 'evaporate t)
            (gnus-overlay-put overlay 'gnus-button-url url)
+           (gnus-put-text-property start end 'gnus-string url)
            (when gnus-article-mouse-face
              (gnus-overlay-put overlay 'mouse-face gnus-article-mouse-face)))))
        ;; The upper-case IMG_ALT is apparently just an artifact that