From: Jani Nikula <jani@nikula.org>
Date: Thu, 6 Dec 2012 22:48:05 +0000 (+0200)
Subject: emacs: add support for stashing the thread id in show view
X-Git-Tag: 0.15_rc1~103
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=11a220a3c1b4c78d6fa994766a5e192d5619751e;p=notmuch.git

emacs: add support for stashing the thread id in show view

Add a prefix argument to notmuch-show-stash-message-id to stash thread
id instead of message id.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 20f89970..7d9f8a90 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1905,10 +1905,16 @@ thread from search."
   (interactive)
   (notmuch-common-do-stash (notmuch-show-get-from)))
 
-(defun notmuch-show-stash-message-id ()
-  "Copy id: query matching the current message to kill-ring."
-  (interactive)
-  (notmuch-common-do-stash (notmuch-show-get-message-id)))
+(defun notmuch-show-stash-message-id (&optional stash-thread-id)
+  "Copy id: query matching the current message to kill-ring.
+
+If invoked with a prefix argument (or STASH-THREAD-ID is
+non-nil), copy thread: query matching the current thread to
+kill-ring."
+  (interactive "P")
+  (if stash-thread-id
+      (notmuch-common-do-stash notmuch-show-thread-id)
+    (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."