X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=6564816f078659f23ab5f6a6c6fc51478aa695ae;hp=f03c2f90c50217f8f54cbab499c8a7aacffc58c9;hb=4e799034492ca28d65385afc94a35461fe25b426;hpb=d038b9320949c79503fe4b76870aaabf279405ab

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index f03c2f90..6564816f 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -181,6 +181,7 @@ there will be called at other points of notmuch execution."
 (defvar notmuch-search-stash-map
   (let ((map (make-sparse-keymap)))
     (define-key map "i" 'notmuch-search-stash-thread-id)
+    (define-key map "q" 'notmuch-stash-query)
     (define-key map "?" 'notmuch-subkeymap-help)
     map)
   "Submap for stash commands")
@@ -191,6 +192,11 @@ there will be called at other points of notmuch execution."
   (interactive)
   (notmuch-common-do-stash (notmuch-search-find-thread-id)))
 
+(defun notmuch-stash-query ()
+  "Copy current query to kill-ring."
+  (interactive)
+  (notmuch-common-do-stash (notmuch-search-get-query)))
+
 (defvar notmuch-search-query-string)
 (defvar notmuch-search-target-thread)
 (defvar notmuch-search-target-line)