summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2018-05-14 18:34:28 -0400
committerKyle Meyer <kyle@kyleam.com>2018-05-14 18:34:28 -0400
commit31178148a2c35afcb8bd28d340999ea3a21406f5 (patch)
treee27dbd5c0b72eae50c1428ad6b7cb4c9fe13895f
parent40288a2e91a0d413f97c8284a73e74166079c6dd (diff)
downloademacs.d-31178148a2c35afcb8bd28d340999ea3a21406f5.tar.gz
notmuch-visit-github-url: Copy URL when given a prefix argument
-rw-r--r--lisp/km-mail.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index ab1cb78..8511326 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -211,10 +211,14 @@ Tracking System, set '--in-reply-to' to the initial report and
;;;###autoload
-(defun km/notmuch-visit-github-url ()
- "Visit the GitHub link associated with this message."
- (interactive)
- (browse-url
+(defun km/notmuch-visit-github-url (&optional copy)
+ "Visit the GitHub link associated with this message.
+If COPY is non-nil, copy the URL instead of visiting it."
+ (interactive "P")
+ (funcall
+ (if copy
+ (lambda (url) (kill-new (message url)))
+ #'browse-url)
(km/notmuch-with-raw-message (notmuch-show-get-message-id)
(if (re-search-forward
(concat "Reply to this email directly or view it on GitHub:\n"