diff options
| -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 |