diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-16 05:33:17 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-16 05:33:17 +0100 |
| commit | 461101d67cc5f9f9dbe01ac0406c5c9762adf10c (patch) | |
| tree | d2768d4e51a1cecb90bc2e1266cd9c8f255354bf /lisp | |
| parent | a53c5e6474eab1da7f56f35d823c02c4930f1778 (diff) | |
| download | emacs-461101d67cc5f9f9dbe01ac0406c5c9762adf10c.tar.gz emacs-461101d67cc5f9f9dbe01ac0406c5c9762adf10c.tar.bz2 emacs-461101d67cc5f9f9dbe01ac0406c5c9762adf10c.zip | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 16 | ||||
| -rw-r--r-- | 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 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)))) |