gnus-art.el (gnus-article-extend-url-button): Make it work again with...

gnus-art.el (gnus-article-extend-url-button): Make it work again with gnus-button-push revised at 2011-01-19

lisp/gnus/ChangeLog

+2013-06-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-art.el (gnus-article-extend-url-button): Make it work again with
+	gnus-button-push revised at 2011-01-19.
+
 2013-06-19  Glenn Morris  <rgm@gnu.org>
 	* gnus-group.el (gnus-mark-article-as-read): Fix declaration.

lisp/gnus/gnus-art.el

@@ -7866,7 +7866,9 @@ url is put as the `gnus-button-url' overlay property on the button."
 	  (let (gnus-article-mouse-face widget-mouse-face)
 	    (while points
 	      (gnus-article-add-button (pop points) (pop points)
-				       'gnus-button-push beg)))
+				       'gnus-button-push
+				       (list beg (assq 'gnus-button-url-regexp
+						       gnus-button-alist)))))
 	  (let ((overlay (gnus-make-overlay start end)))
 	    (gnus-overlay-put overlay 'evaporate t)
 	    (gnus-overlay-put overlay 'gnus-button-url