diff options
Diffstat (limited to 'lisp/km-mail.el')
| -rw-r--r-- | lisp/km-mail.el | 7 |
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." |