[Emacs-diffs] trunk r113214: gnus-art.el (gnus-article-extend-url-button): Make it work again with gnus-button-push revised at 2011-01-19

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113214
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-28 08:03:21 +0000
message:
  gnus-art.el (gnus-article-extend-url-button): Make it work again with 
gnus-button-push revised at 2011-01-19
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-19 20:10:57 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-28 08:03:21 +0000
@@ -1,3 +1,8 @@
+2013-06-28  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-group.el (gnus-mark-article-as-read): Fix declaration.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2013-06-04 08:14:23 +0000
+++ b/lisp/gnus/gnus-art.el     2013-06-28 08:03:21 +0000
@@ -7866,7 +7866,9 @@
          (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