diff options
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 |