emacs: make show set --exclude=false

Show has to set --exclude=false to deal with cases where it is asked
to show a single excluded message. It uses JSON so it can easily pass
the exclude information to the user.
This commit is contained in:
Mark Walters 2012-04-07 17:10:08 +01:00 committed by David Bremner
parent 6478e1bc92
commit 075d7df01e

View file

@ -1060,13 +1060,15 @@ function is used."
(append (list "\'") basic-args (append (list "\'") basic-args
(list "and (" notmuch-show-query-context ")\'")) (list "and (" notmuch-show-query-context ")\'"))
(append (list "\'") basic-args (list "\'"))))) (append (list "\'") basic-args (list "\'")))))
(notmuch-show-insert-forest (notmuch-query-get-threads args)) (notmuch-show-insert-forest (notmuch-query-get-threads
(cons "--exclude=false" args)))
;; If the query context reduced the results to nothing, run ;; If the query context reduced the results to nothing, run
;; the basic query. ;; the basic query.
(when (and (eq (buffer-size) 0) (when (and (eq (buffer-size) 0)
notmuch-show-query-context) notmuch-show-query-context)
(notmuch-show-insert-forest (notmuch-show-insert-forest
(notmuch-query-get-threads basic-args)))) (notmuch-query-get-threads
(cons "--exclude=false" basic-args)))))
(jit-lock-register #'notmuch-show-buttonise-links) (jit-lock-register #'notmuch-show-buttonise-links)