summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-gnus.el6
1 files changed, 4 insertions, 2 deletions
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