From b9526cbe3708190236e78f972ed690b43baf0e60 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 6 Mar 2017 23:11:34 -0500
Subject: Add notmuch-archive-all command

---
 lisp/km-mail.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lisp')

diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index 3ab7e50..345d2bb 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -50,6 +50,13 @@
   (let ((default-directory project))
     (call-interactively #'notmuch-show-pipe-part)))
 
+;;;###autoload
+(defun km/notmuch-archive-all ()
+  "Call `notmuch-search-archive-thread' with whole-buffer region."
+  (interactive)
+  (mark-whole-buffer)
+  (call-interactively #'notmuch-search-archive-thread))
+
 
 ;;; Mail sync
 
-- 
cgit v1.2.3