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

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index ff365ed686f8aa4b1335b9923e8006f997f5e62c..99f23713636ef8a25cf1719591c3d8aea2170f51 100644 (file)
--- 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 77e73e6606d0777f784fe1fb911c77f306a7bd78..f836bdd3c55198cf8bbbc33cf13bc884ef7f8a5b 100644 (file)
--- 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))))