From 6ee5760ad42d795d8d451632ae18d1666a6042e2 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 24 Jan 2017 23:53:16 -0500
Subject: Add gnus-copy-message-id-as-kill command

---
 lisp/km-mail.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lisp')

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."
-- 
cgit v1.2.3