diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-01-24 23:53:16 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-01-24 23:53:16 -0500 |
| commit | 6ee5760ad42d795d8d451632ae18d1666a6042e2 (patch) | |
| tree | 3ad653ab8bfd5386a5a4fe02517e9ebcf1fedcf9 /lisp/km-mail.el | |
| parent | cb92104ef16bc293365c021131123788b8c54c50 (diff) | |
| download | emacs.d-6ee5760ad42d795d8d451632ae18d1666a6042e2.tar.gz | |
Add gnus-copy-message-id-as-kill command
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." |