(erase-buffer)
(goto-char (point-min))
(let* ((search-args (concat basic-query
- (if query-context
- (concat " and (" query-context ")"))))
+ (and query-context
+ (concat " and (" query-context ")"))))
(message-arg (if unthreaded "--unthreaded" "--entire-thread")))
(if (equal (car (process-lines notmuch-command "count" search-args)) "0")
(setq search-args basic-query))