diff options
| -rw-r--r-- | lisp/init-gnus.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 79e50ba..13f4d5f 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -181,6 +181,12 @@ to group buffer instead of moving to next group." (kill-new (message "%s" link))) (user-error "No link found"))))) +(defun km/shr-browse-url-and-goto-next () + "Run `shr-browse-url' followed by `shr-next-link'." + (interactive) + (shr-browse-url) + (shr-next-link)) + (define-key gnus-summary-mode-map (kbd "C-c l") 'km/gnus-follow-last-message-link) (define-key gnus-summary-mode-map ";" 'gnus-summary-universal-argument) @@ -192,7 +198,7 @@ to group buffer instead of moving to next group." (define-key gnus-article-mode-map (kbd "C-c l") 'km/gnus-follow-last-message-link) -(define-key gnus-article-mode-map "e" 'shr-browse-url) +(define-key gnus-article-mode-map "e" 'km/shr-browse-url-and-goto-next) (define-prefix-command 'km/gnus-summary-prefix-map) (define-key gnus-summary-mode-map (kbd "C-c m") 'km/gnus-summary-prefix-map) |