summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-03-07 16:18:28 -0500
committerKyle Meyer <kyle@kyleam.com>2014-03-07 16:21:18 -0500
commit932541b980b31f6c428540563acefb408268b252 (patch)
treec85ca270dd39c8d119910ac4631d764070b532a6
parent2351fb3d634ae4fee32a7e1597d3897b1a56ac8d (diff)
downloademacs.d-932541b980b31f6c428540563acefb408268b252.tar.gz
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.
-rw-r--r--lisp/init-gnus.el10
1 files changed, 5 insertions, 5 deletions
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.