summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-10-21 01:03:58 -0400
committerKyle Meyer <kyle@kyleam.com>2014-10-21 01:03:58 -0400
commit85e10c8a8de0d5ecb384105fb48389a69cca1854 (patch)
tree43d0aeca2de0ed11d3d798fe7c2219f7ae21430a /lisp
parentaeda4b6369da94f32e431b60a037d19414c81ff7 (diff)
downloademacs.d-85e10c8a8de0d5ecb384105fb48389a69cca1854.tar.gz
Support copying in gnus-follow-last-message-link
Diffstat (limited to 'lisp')
-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