From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 16 Nov 2019 04:33:17 +0000 (+0100)
Subject: Make button-1 work on all Gnus buttons
X-Git-Tag: emacs-27.0.90~601
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=461101d67cc5f9f9dbe01ac0406c5c9762adf10c;p=emacs.git

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