diff options
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/km-mail.el | 7 |
2 files changed, 9 insertions, 0 deletions
@@ -2113,9 +2113,11 @@ ("o" . km/ace-link-widget))) (bind-keys :map km/gnus-summary-prefix-map + ("i" . km/gnus-copy-message-id-as-kill) ("l" . km/gnus-copy-gmane-link-as-kill) ("p" . km/gnus-open-github-patch)) (bind-keys :map km/gnus-article-prefix-map + ("i" . km/gnus-copy-message-id-as-kill) ("l" . km/gnus-copy-gmane-link-as-kill) ("p" . km/gnus-open-github-patch))) 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." |