+(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))))
+