+ (notmuch-search-markup-thread-ids)
+ ; A well-behaved program ends its output with a newline, but we
+ ; don't actually want the blank line at the end of the file.
+ (goto-char (point-max))
+ (if (looking-at "^$")
+ (delete-backward-char 1)
+ )
+ ))))
+
+(defun notmuch-search-filter (query)
+ "Run \"notmuch search\" to refine the current search results.
+
+A search string will be constructed by appending QUERY to the
+current search string, and the results of \"notmuch search\" for
+the combined query will be displayed."
+ (interactive "sFilter search: ")
+ (notmuch-search (concat notmuch-search-query-string " and " query)))