diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-03-03 01:17:53 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-03-03 01:17:53 -0500 |
| commit | 2e9a0f2623bb460434cd0a808f5c4a3cfc6bdf70 (patch) | |
| tree | c48d30785e55717b8968cf3c498aa707757ebdf2 | |
| parent | df6f935259c688b845e12b8c8b1f9710f36f5b0d (diff) | |
| download | emacs.d-2e9a0f2623bb460434cd0a808f5c4a3cfc6bdf70.tar.gz | |
Add command shr-browse-url-and-goto-next
| -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) |