master 461101d: Make button-1 work on all Gnus buttons

[Lars Ingebrigtsen]

branch: master
commit 461101d67cc5f9f9dbe01ac0406c5c9762adf10c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Make button-1 work on all Gnus buttons
    
    * lisp/gnus/gnus-icalendar.el (gnus-icalendar-insert-button):
    * lisp/gnus/gnus-art.el (gnus-insert-mime-button)
    (gnus-mime-display-alternative, gnus-insert-prev-page-button)
    (gnus-insert-next-page-button)
    (gnus-insert-mime-security-button): Make button-1 work on all the
    Gnus buttons (bug#38144).
---
 lisp/gnus/gnus-art.el       | 16 +++++++++++-----
 lisp/gnus/gnus-icalendar.el |  1 +
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index ff365ed..99f2371 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5864,6 +5864,7 @@ all parts."
      b e
      'keymap gnus-mime-button-map
      'face gnus-article-button-face
+     'follow-link t
      'help-echo
      "mouse-2: toggle the MIME part; down-mouse-3: more options")))
 
@@ -6147,6 +6148,7 @@ If nil, don't show those extra buttons."
             keymap ,gnus-mime-button-map
             mouse-face ,gnus-article-mouse-face
             face ,gnus-article-button-face
+            follow-link t
             gnus-part ,id
             button t
             article-type multipart
@@ -6170,6 +6172,7 @@ If nil, don't show those extra buttons."
               keymap ,gnus-mime-button-map
               mouse-face ,gnus-article-mouse-face
               face ,gnus-article-button-face
+              follow-link t
               gnus-part ,id
               button t
               gnus-data ,handle
@@ -8404,6 +8407,7 @@ url is put as the `gnus-button-url' overlay property on 
the button."
      gnus-prev-page-line-format nil
      `(keymap ,gnus-prev-page-map
              gnus-prev t
+             follow-link t
              gnus-callback gnus-article-button-prev-page
              article-type annotation))
     (setq e (if (bolp)
@@ -8435,6 +8439,7 @@ url is put as the `gnus-button-url' overlay property on 
the button."
     (gnus-eval-format gnus-next-page-line-format nil
                      `(keymap ,gnus-next-page-map
                                gnus-next t
+                              follow-link t
                                gnus-callback gnus-article-button-next-page
                                article-type annotation))
     (setq e (if (bolp)
@@ -8822,11 +8827,12 @@ For example:
      gnus-mime-security-button-line-format
      gnus-mime-security-button-line-format-alist
      `(keymap ,gnus-mime-security-button-map
-        gnus-callback gnus-mime-security-press-button
-        gnus-line-format ,gnus-mime-security-button-line-format
-        gnus-mime-details ,gnus-mime-security-button-pressed
-        article-type annotation
-        gnus-data ,handle))
+             gnus-callback gnus-mime-security-press-button
+             gnus-line-format ,gnus-mime-security-button-line-format
+             gnus-mime-details ,gnus-mime-security-button-pressed
+             article-type annotation
+             follow-link t
+             gnus-data ,handle))
     (setq e (if (bolp)
                ;; Exclude a newline.
                (1- (point))
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 77e73e6..f836bdd 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -778,6 +778,7 @@ These will be used to retrieve the RSVP information from 
ical events."
        ,callback
        keymap ,gnus-mime-button-map
        face ,gnus-article-button-face
+       follow-link t
        button t
        gnus-data ,data))))