Notmuch/Evil: Bind Q to notmuch-mark-unread-and-bury

.emacs.d/lisp/init-evil.el

@@ -231,6 +231,13 @@
   (dolist (map (list elfeed-search-mode-map elfeed-show-mode-map))
     (evil-define-key 'normal map "m" 'ambrevar/elfeed-add-bookmark)))
 
+(with-eval-after-load 'notmuch
+  (defun ambrevar/notmuch-mark-unread-and-bury ()
+    (interactive)
+    (notmuch-show-add-tag '("+unread"))
+    (notmuch-bury-or-kill-this-buffer))
+  (evil-define-key 'normal notmuch-show-mode-map "Q" 'ambrevar/notmuch-mark-unread-and-bury))
+
 ;; Eshell
 (defun ambrevar/evil-eshell ()
   (evil-define-key 'visual eshell-mode-map (kbd "<return>") 'ambrevar/eshell-append-region-to-command-line))