aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Bremner <david@tethera.net>2025-06-15 17:12:35 -0300
committerDavid Bremner <david@tethera.net>2026-01-15 07:56:22 +0900
commit97a2bad36a35399681f6c5f5a2b4390e6429d5ae (patch)
tree3cbfb6e4626476e9f6e9cdd1cdf5c0997b7ea7dc
parentf66b672128262025afa474e4a86f62ca066d4862 (diff)
emacs/hello: fix one case of passing hide-excluded
In the search box (and recent searches), notmuch-search-hide-excluded was not being passed to notmuch-search. This means that excluded messages were always shown in the results. Fix this by passing the extra argument.
-rw-r--r--emacs/notmuch-hello.el2
-rwxr-xr-xtest/T461-emacs-search-exclude.sh2
2 files changed, 1 insertions, 3 deletions
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 67c805a8..eb5d618a 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -438,7 +438,7 @@ supported for \"Customized queries section\" items."
(setq search (string-trim search))
(let ((history-delete-duplicates t))
(add-to-history 'notmuch-search-history search)))
- (notmuch-search search notmuch-search-oldest-first)))
+ (notmuch-search search notmuch-search-oldest-first notmuch-search-hide-excluded)))
(defun notmuch-hello-add-saved-search (widget &rest _event)
(let ((search (widget-value (widget-get widget :parent)))
diff --git a/test/T461-emacs-search-exclude.sh b/test/T461-emacs-search-exclude.sh
index 5aa13370..338e1e4e 100755
--- a/test/T461-emacs-search-exclude.sh
+++ b/test/T461-emacs-search-exclude.sh
@@ -24,7 +24,6 @@ test_emacs '(notmuch-hello)
test_expect_equal_file $EXPECTED/notmuch-search-tag-inbox-without-excluded OUTPUT
test_begin_subtest "Search from search box doesn't contain excluded mail by default"
-test_subtest_known_broken
test_emacs '(notmuch-hello)
(goto-char (point-min))
(re-search-forward "Search:")
@@ -37,7 +36,6 @@ test_emacs '(notmuch-hello)
test_expect_equal_file $EXPECTED/notmuch-search-tag-inbox-without-excluded OUTPUT
test_begin_subtest "Search from search box doesn't contain excluded mail by default"
-test_subtest_known_broken
test_emacs '(notmuch-hello)
(goto-char (point-min))
(re-search-forward "Search:")