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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6cee72ee12ffd67d95ef8d47d6f7d529db3e763c..899216c521a66848b6a9901bf800844ea2a87095 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 65f4b76ad197e8a503e5dce90f6e87294fa9c0b4..5840aacd7a308bf25794c8cd94988d50a6bab622 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/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