       (:key "g" :func notmuch-refresh-this-buffer)
     ))
 
-  (evil-define-key 'normal notmuch-tree-mode-map "D" (lambda () (interactive) (l/toggle-tag "trash" t)))
-  (evil-define-key 'normal notmuch-tree-mode-map "F" (lambda () (interactive) (l/toggle-tag "flagged" t)))
-  (evil-define-key 'normal notmuch-tree-mode-map "U" (lambda () (interactive) (l/toggle-tag "unread" t)))
+  (evil-define-key 'normal notmuch-tree-mode-map "A" (lambda () (interactive) (l/toggle-tag-list '("-inbox" "+archived") t)))
+  (evil-define-key 'normal notmuch-tree-mode-map "D" (lambda () (interactive) (l/toggle-tag-list '("+trash") t)))
+  (evil-define-key 'normal notmuch-tree-mode-map "F" (lambda () (interactive) (l/toggle-tag-list '("+flagged") t)))
+  (evil-define-key 'normal notmuch-tree-mode-map "U" (lambda () (interactive) (l/toggle-tag-list '("+unread") t)))
 
   (evil-define-key 'normal notmuch-show-mode-map "o" 'hydra-notmuch-show/body)
   (evil-define-key 'normal notmuch-show-mode-map "r" 'notmuch-show-reply)

      notmuch-show-mode-map
      notmuch-tree-mode-map)
    '(
      (:key "d" :func (lambda () (interactive) (l/toggle-tag "trash")))
      (:key "f" :func (lambda () (interactive) (l/toggle-tag "flagged")))
      (:key "u" :func (lambda () (interactive) (l/toggle-tag "unread")))
      (:key "s" :func (lambda () (interactive) (l/toggle-tag "spam")))
    ))

  (l/bind-keys


(defhydra hydra-notmuch-show (:foreign-keys warn)
  "notmuch-show"
  ("d" (lambda () (interactive) (l/toggle-tag-list '("+trash"))) "(un)delete")
  ("f" (lambda () (interactive) (l/toggle-tag-list '("+flagged"))) "(un)flag")
  ("q" nil "exit" :exit t))

(provide 'l-notmuch)
