mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-21 10:28:09 +01:00
emacs: define, use option :disable-excludes for n-h-query-counts
Initially only use in notmuch-hello-insert-alltags. This is a more narrow resolution of [1], which (unlike [2]) does not disable exclude processing for regular saved searches. [1]: id:87wox1vovj.fsf@len.workgroup [2]: id:20220105010606.2034601-2-david@tethera.net
This commit is contained in:
parent
68640fd967
commit
21cce961b9
2 changed files with 9 additions and 4 deletions
|
@ -557,7 +557,8 @@ with any properties in the original saved-search.
|
|||
|
||||
The values :show-empty-searches, :filter and :filter-count from
|
||||
options will be handled as specified for
|
||||
`notmuch-hello-insert-searches'."
|
||||
`notmuch-hello-insert-searches'. :disable-includes can be used to
|
||||
turn off the default exclude processing in `notmuch-count(1)'"
|
||||
(with-temp-buffer
|
||||
(dolist (elem query-list nil)
|
||||
(let ((count-query (or (notmuch-saved-search-get elem :count-query)
|
||||
|
@ -570,7 +571,11 @@ options will be handled as specified for
|
|||
(plist-get options :filter))))
|
||||
"\n")))
|
||||
(unless (= (notmuch--call-process-region (point-min) (point-max) notmuch-command
|
||||
t t nil "count" "--batch") 0)
|
||||
t t nil "count"
|
||||
(if (plist-get options :disable-excludes)
|
||||
"--exclude=false"
|
||||
"--exclude=true")
|
||||
"--batch") 0)
|
||||
(notmuch-logged-error
|
||||
"notmuch count --batch failed"
|
||||
"Please check that the notmuch CLI is new enough to support `count
|
||||
|
@ -917,7 +922,8 @@ following:
|
|||
nil
|
||||
:initially-hidden (not notmuch-show-all-tags-list)
|
||||
:hide-tags notmuch-hello-hide-tags
|
||||
:filter notmuch-hello-tag-list-make-query))
|
||||
:filter notmuch-hello-tag-list-make-query
|
||||
:disable-excludes t))
|
||||
|
||||
(defun notmuch-hello-insert-footer ()
|
||||
"Insert the notmuch-hello footer."
|
||||
|
|
|
@ -69,7 +69,6 @@ notmuch tag -$tag '*'
|
|||
test_expect_equal_file $EXPECTED/notmuch-hello-long-names OUTPUT
|
||||
|
||||
test_begin_subtest "All tags show up"
|
||||
test_subtest_known_broken
|
||||
tag=exclude_me
|
||||
notmuch tag +$tag '*'
|
||||
notmuch config set search.exclude_tags $tag
|
||||
|
|
Loading…
Reference in a new issue