diff options
author | Kyle Meyer <kyle@kyleam.com> | 2017-03-06 23:11:34 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-06 23:11:34 -0500 |
commit | b9526cbe3708190236e78f972ed690b43baf0e60 (patch) | |
tree | 35fc6db22f92d12ba64f8a36e84bf00f28df71de /lisp | |
parent | 1a51aefede6813a1180cbd409c61219a0ed9b06a (diff) | |
download | emacs.d-b9526cbe3708190236e78f972ed690b43baf0e60.tar.gz |
Add notmuch-archive-all command
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/km-mail.el | 7 |
1 files changed, 7 insertions, 0 deletions
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 |