X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=d395d8740665661d73bae8ab347092111aef8aca;hp=aaf69f55e94dceacca89eb4dc9044a0444255e3f;hb=f9764bfacc97457d1154c2d2a6001a6564f13ec3;hpb=fd700ec9613f26a67c7ab64ab2b751e42f3f1f20

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index aaf69f55..d395d874 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -896,6 +896,7 @@ logic of the notmuch-crypto-process-mime customization variable."
     (define-key map "F" 'notmuch-show-stash-filename)
     (define-key map "f" 'notmuch-show-stash-from)
     (define-key map "i" 'notmuch-show-stash-message-id)
+    (define-key map "I" 'notmuch-show-stash-message-id-stripped)
     (define-key map "s" 'notmuch-show-stash-subject)
     (define-key map "T" 'notmuch-show-stash-tags)
     (define-key map "t" 'notmuch-show-stash-to)
@@ -1440,6 +1441,11 @@ buffer."
   (interactive)
   (notmuch-common-do-stash (notmuch-show-get-message-id)))
 
+(defun notmuch-show-stash-message-id-stripped ()
+  "Copy message ID of current message (sans `id:' prefix) to kill-ring."
+  (interactive)
+  (notmuch-common-do-stash (substring (notmuch-show-get-message-id) 4 -1)))
+
 (defun notmuch-show-stash-subject ()
   "Copy Subject field of current message to kill-ring."
   (interactive)