From 85e10c8a8de0d5ecb384105fb48389a69cca1854 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 21 Oct 2014 01:03:58 -0400
Subject: Support copying in gnus-follow-last-message-link

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

(limited to 'lisp/init-gnus.el')

diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el
index 71f4e04..9f2e132 100644
--- a/lisp/init-gnus.el
+++ b/lisp/init-gnus.el
@@ -81,11 +81,13 @@
 
 (defun km/gnus-follow-last-message-link (arg)
   "Follow link at bottom of message.
-When a prefix argument, move to the link but don't follow it."
+When a prefix argument, move to and copy the link but don't
+follow it."
   (interactive "P")
   (km/gnus-end-of-article-buffer)
   (widget-backward 1)
-  (unless arg
+  (if arg
+      (shr-copy-url)
     (widget-button-press (point))))
 
 (define-key gnus-summary-mode-map
-- 
cgit v1.2.3