diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-03-07 16:18:28 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-03-07 16:21:18 -0500 |
| commit | 932541b980b31f6c428540563acefb408268b252 (patch) | |
| tree | c85ca270dd39c8d119910ac4631d764070b532a6 | |
| parent | 2351fb3d634ae4fee32a7e1597d3897b1a56ac8d (diff) | |
| download | emacs.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.el | 10 |
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. |