debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 10:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: define, use option :disable-excludes for n-h-query-counts

Browse source 
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:
David Bremner 2022-01-22 13:44:40 -04:00
parent 68640fd967
commit 21cce961b9
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/notmuch-hello.el
View file

@ -557,7 +557,8 @@ with any properties in the original saved-search.
The values :show-empty-searches, :filter and :filter-count from The values :show-empty-searches, :filter and :filter-count from
options will be handled as specified for 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 (with-temp-buffer
(dolist (elem query-list nil) (dolist (elem query-list nil)
(let ((count-query (or (notmuch-saved-search-get elem :count-query) (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)))) (plist-get options :filter))))
"\n"))) "\n")))
(unless (= (notmuch--call-process-region (point-min) (point-max) notmuch-command (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-logged-error
"notmuch count --batch failed" "notmuch count --batch failed"
"Please check that the notmuch CLI is new enough to support `count "Please check that the notmuch CLI is new enough to support `count
@ -917,7 +922,8 @@ following:
nil nil
:initially-hidden (not notmuch-show-all-tags-list) :initially-hidden (not notmuch-show-all-tags-list)
:hide-tags notmuch-hello-hide-tags :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 () (defun notmuch-hello-insert-footer ()
"Insert the notmuch-hello footer." "Insert the notmuch-hello footer."

1
test/T440-emacs-hello.sh
View file

@ -69,7 +69,6 @@ notmuch tag -$tag '*'
test_expect_equal_file $EXPECTED/notmuch-hello-long-names OUTPUT test_expect_equal_file $EXPECTED/notmuch-hello-long-names OUTPUT
test_begin_subtest "All tags show up" test_begin_subtest "All tags show up"
test_subtest_known_broken
tag=exclude_me tag=exclude_me
notmuch tag +$tag '*' notmuch tag +$tag '*'
notmuch config set search.exclude_tags $tag notmuch config set search.exclude_tags $tag