src/.emacs.d/site-lisp/wtk_notmuch.el

   1 (require 'notmuch)
   2
   3 (define-key notmuch-search-mode-map "S"
   4         (lambda ()
   5                 "mark messages in thread as spam"
   6                 (interactive)
   7                 (notmuch-search-tag '("+spam" "-inbox"))))
   8
   9 (setq notmuch-saved-searches
  10         '(
  11                 ("inbox" . "tag:inbox")
  12                 ("unread" . "tag:unread")
  13                 ("mentions" . "tag:inbox AND tag:mention")
  14                 )
  15         )