From 1d93f8255ee80241d6cd2d6d66aaea534a525ef5 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 20 May 2014 11:50:12 -0400
Subject: km/follow-last-message-link: Add prefix argument

---
 lisp/init-gnus.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lisp')

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)
-- 
cgit v1.2.3