From: Katsumi Yamaoka Date: Fri, 28 Jun 2013 08:03:21 +0000 (+0000) Subject: gnus-art.el (gnus-article-extend-url-button): Make it work again with gnus-button... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbca79f8ce74ddadb93a4dfc705b0020fbbe1002;p=emacs.git gnus-art.el (gnus-article-extend-url-button): Make it work again with gnus-button-push revised at 2011-01-19 --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6cee72ee12f..899216c521a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-06-28 Katsumi Yamaoka + + * 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 * 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 65f4b76ad19..5840aacd7a3 100644 --- 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