Yet another case of "how could this have possibly worked before?!".
I guess we were just getting very lucky with the emacs lisp calling
conventions and what happens with extra arguments, but, ick! Much
better now.
(goto-char (point-min))
(save-excursion
(let ((proc (start-process-shell-command
(goto-char (point-min))
(save-excursion
(let ((proc (start-process-shell-command
- "notmuch-search" buffer notmuch-command "search"
- (if oldest-first "--sort=oldest-first" "--sort=newest-first")
- (shell-quote-argument query))))
+ "notmuch-search" buffer
+ (concat notmuch-command " search "
+ (if oldest-first
+ "--sort=oldest-first "
+ "--sort=newest-first ")
+ (shell-quote-argument query)))))
(set-process-sentinel proc 'notmuch-search-process-sentinel)
(set-process-filter proc 'notmuch-search-process-filter))))
(run-hooks 'notmuch-search-hook)))
(set-process-sentinel proc 'notmuch-search-process-sentinel)
(set-process-filter proc 'notmuch-search-process-filter))))
(run-hooks 'notmuch-search-hook)))