       (notmuch-search-tag '("-spam") beg end))
     (progn
       (notmuch-search-tag '("+spam") beg end)
+      (notmuch-search-tag '("-unread") beg end)
       (notmuch-search-tag '("-inbox") beg end))))
 
 ;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph

  (interactive (notmuch-search-interactive-region))
  (if (member "unread" (notmuch-search-get-tags))
      (notmuch-search-tag '("-unread") beg end)
    (notmuch-search-tag '("+unread") beg end)))
;;
(defun --notmuch-show-read (&optional beg end)
  "Toggle flag on message(s) from BEG to END."

  (interactive)
  (if (member "flagged" (notmuch-search-get-tags))
      (notmuch-search-tag '("-flagged"))
    (notmuch-search-tag '("+flagged")))
  (notmuch-search-next-thread))
;;
(defun --notmuch-show-flag ()
  "Toggle flag on message under point."
