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).

2 files changed, 12 insertions, 5 deletions

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index ff365ed686f..99f23713636 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 77e73e6606d..f836bdd3c55 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))))