From 4ad849035b9865f26761ac886f1241a2df3dff73 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 19 Jun 2013 19:35:55 -0400 Subject: function to locate and follow gnus link For articles with many links, it can get annoying to press (gnus-summary-widget-forward) to get to the external link to the current article. --- init/km-gnus.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'init') 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) -- cgit v1.2.3