From: Carl Worth <cworth@cworth.org>
Date: Thu, 28 Oct 2010 01:04:38 +0000 (-0700)
Subject: emacs: Eliminate warning of calling function with excess arguments.
X-Git-Tag: 0.4~44
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=c9e0da3a1aaa640da330fe82fa906bb84463736b

emacs: Eliminate warning of calling function with excess arguments.

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.
---

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index ff9b519b..a8485275 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -796,9 +796,12 @@ The optional parameters are used as follows:
       (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)))