From 97a2bad36a35399681f6c5f5a2b4390e6429d5ae Mon Sep 17 00:00:00 2001 From: David Bremner Date: Sun, 15 Jun 2025 17:12:35 -0300 Subject: [PATCH] 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. --- emacs/notmuch-hello.el | 2 +- test/T461-emacs-search-exclude.sh | 2 -- 2 files changed, 1 insertion(+), 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:") -- 2.45.2