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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7c5f56..1275605 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * eww.el, shr.el, shr-color.el: Removed from the Gnus repository.  They

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 076f949..f640000 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7867,7 +7867,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