2010-10-14 Julien Danjou <julien@danjou.info>
+ * shr.el (shr-tag-a): Use url-link as widget type.
+
* gnus-group.el (gnus-group-insert-group-line): Fix group argument to
`gnus-group-get-icon'.
shr-start)
(shr-generic cont)
(widget-convert-button
- 'link (or shr-start start) (point)
- :help-echo url)
- (put-text-property (or shr-start start) (point) 'keymap shr-map)
+ 'url-link (or shr-start start) (point)
+ :help-echo url
+ :keymap shr-map
+ url)
(put-text-property (or shr-start start) (point) 'shr-url url)))
(defun shr-encode-url (url)