diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-06-28 08:03:21 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-06-28 08:03:21 +0000 |
| commit | dbca79f8ce74ddadb93a4dfc705b0020fbbe1002 (patch) | |
| tree | dac2a1f9cb89032761570dddd7d23d872f3b2128 /lisp/gnus/gnus-art.el | |
| parent | eadb6068871e454712c1794f9589b57ef55da8ef (diff) | |
| download | emacs-dbca79f8ce74ddadb93a4dfc705b0020fbbe1002.tar.gz | |
gnus-art.el (gnus-article-extend-url-button): Make it work again with gnus-button-push revised at 2011-01-19
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |