summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-mail.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index b3c5585..45cdc3b 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -95,6 +95,13 @@ argument FOLLOW, follow link instead of copying it."
(lambda (s) (kill-new (message s))))
it)))))
+;;;###autoload
+(defun km/gnus-copy-message-id-as-kill ()
+ (interactive)
+ (with-current-buffer gnus-original-article-buffer
+ (--when-let (message-field-value "Message-ID")
+ (kill-new (message "%s" it)))))
+
(defun km/gnus-open-github-patch ()
"Open patch from github email.
A new buffer with the patch contents is opened in another window."