X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=c97f3f53e8adf73959e6c4cef66ec199d61ecbcd;hp=010fc2ff048a883db1a27400f59b64ca89ba0b4a;hb=c37b1bdf2d871a11672772f83080f3ea9bda1b17;hpb=1c75d622c9d2ff2531c3c9a4a1d9a1856907c907

diff --git a/notmuch.el b/notmuch.el
index 010fc2ff..c97f3f53 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -51,7 +51,7 @@
 (defun notmuch-show (thread-id)
   "Run \"notmuch show\" with the given thread ID and display results."
   (interactive "sNotmuch show: ")
-  (let ((buffer (get-buffer-create (concat "*notmuch-show-" thread-id))))
+  (let ((buffer (get-buffer-create (concat "*notmuch-show-" thread-id "*"))))
     (switch-to-buffer buffer)
     (notmuch-show-mode)
     (let ((proc (get-buffer-process (current-buffer)))
@@ -96,10 +96,16 @@
   (interactive)
   (notmuch-show (notmuch-search-find-thread-id)))
 
+(defun notmuch-search-archive-thread ()
+  (interactive)
+  (if (eq (call-process "notmuch" nil (get-buffer-create "*Messages*") nil "tag" "-inbox" (concat "thread:" (notmuch-search-find-thread-id))) 0)
+      (let ((inhibit-read-only t))
+	(kill-whole-line))))
+
 (defun notmuch-search (query)
   "Run \"notmuch search\" with the given query string and display results."
   (interactive "sNotmuch search: ")
-  (let ((buffer (get-buffer-create (concat "*notmuch-search-" query))))
+  (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*"))))
     (switch-to-buffer buffer)
     (notmuch-search-mode)
     (let ((proc (get-buffer-process (current-buffer)))