summaryrefslogtreecommitdiff
path: root/init
diff options
context:
space:
mode:
Diffstat (limited to 'init')
-rw-r--r--init/km-gnus.el17
1 files changed, 17 insertions, 0 deletions
diff --git a/init/km-gnus.el b/init/km-gnus.el
index fcd1303..8b55b78 100644
--- a/init/km-gnus.el
+++ b/init/km-gnus.el
@@ -82,6 +82,23 @@
'(gnus-thread-sort-by-number
gnus-thread-sort-by-most-recent-date))
+(defun km/follow-gnus-link ()
+ "Follow link at bottom of gnus message"
+ (interactive)
+ ;; next 3 lines from gnus-sum.el guns-summary-widget-forward
+ (gnus-summary-select-article)
+ (gnus-configure-windows 'article)
+ (select-window (gnus-get-buffer-window gnus-article-buffer))
+
+ (end-of-buffer)
+ (search-backward "Link")
+ (widget-button-press (point)))
+
+(define-key gnus-summary-mode-map
+ (kbd "C-c j") 'km/follow-gnus-link)
+(define-key gnus-article-mode-map
+ (kbd "C-c j") 'km/follow-gnus-link)
+
(require 'notmuch)
(require 'org-gnus)