diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-05-20 11:50:12 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-05-20 11:50:12 -0400 |
| commit | 1d93f8255ee80241d6cd2d6d66aaea534a525ef5 (patch) | |
| tree | 0952b64169bf5b1ac5916f8a598b8b617f3fa937 | |
| parent | 0dc8c5b440928d9a0382cc2990f98c9994f1102f (diff) | |
| download | emacs.d-1d93f8255ee80241d6cd2d6d66aaea534a525ef5.tar.gz | |
km/follow-last-message-link: Add prefix argument
| -rw-r--r-- | lisp/init-gnus.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 09f5228..faf5917 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -81,12 +81,14 @@ (diminish 'mml-mode "Ml") -(defun km/follow-last-message-link () - "Follow link at bottom of message." - (interactive) +(defun km/follow-last-message-link (arg) + "Follow link at bottom of message. +When a prefix argument, move to the link but don't follow it." + (interactive "P") (km/gnus-end-of-article-buffer) (widget-backward 1) - (widget-button-press (point))) + (unless arg + (widget-button-press (point)))) (define-key gnus-summary-mode-map (kbd "C-c j") 'km/follow-last-message-link) |