summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-gnus.el10
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)