diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-10-21 01:03:58 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-10-21 01:03:58 -0400 |
| commit | 85e10c8a8de0d5ecb384105fb48389a69cca1854 (patch) | |
| tree | 43d0aeca2de0ed11d3d798fe7c2219f7ae21430a /lisp/init-gnus.el | |
| parent | aeda4b6369da94f32e431b60a037d19414c81ff7 (diff) | |
| download | emacs.d-85e10c8a8de0d5ecb384105fb48389a69cca1854.tar.gz | |
Support copying in gnus-follow-last-message-link
Diffstat (limited to 'lisp/init-gnus.el')
| -rw-r--r-- | lisp/init-gnus.el | 6 |
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 |