'gnus-button-push from)
(gnus-put-text-property
start end
- 'gnus-string (buffer-substring-no-properties
- start end))))))))))
+ 'gnus-data (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.
"Copy the string in the button to the kill ring."
(interactive)
(gnus-article-check-buffer)
- (let ((data (get-text-property (point) 'gnus-string)))
+ (let ((data (get-text-property (point) 'gnus-data)))
(when data
(with-temp-buffer
(insert data)