From 932541b980b31f6c428540563acefb408268b252 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
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