From 932541b980b31f6c428540563acefb408268b252 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 7 Mar 2014 16:18:28 -0500 Subject: Generalize km/follow-gwene-link Don't use anything gwene-specific to follow the last link of the message, so I can use this on other messages that have the main link at the bottom. --- lisp/init-gnus.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp') diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 6bb8272..6bc566f 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -80,17 +80,17 @@ (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-most-recent-date)) -(defun km/follow-gwene-link () - "Follow link at bottom of gwene message" +(defun km/follow-last-message-link () + "Follow link at bottom of message." (interactive) (km/gnus-end-of-article-buffer) - (search-backward "Link") + (widget-backward 1) (widget-button-press (point))) (define-key gnus-summary-mode-map - (kbd "C-c j") 'km/follow-gwene-link) + (kbd "C-c j") 'km/follow-last-message-link) (define-key gnus-article-mode-map - (kbd "C-c j") 'km/follow-gwene-link) + (kbd "C-c j") 'km/follow-last-message-link) (defun km/gnus-open-github-patch () "Open patch from github email. -- cgit v1.2.3