From 2e9a0f2623bb460434cd0a808f5c4a3cfc6bdf70 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 3 Mar 2015 01:17:53 -0500 Subject: Add command shr-browse-url-and-goto-next --- lisp/init-gnus.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'lisp') 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) -- cgit v1.2.3