X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-mua.el;h=ac2d29ecf5491bc318ac6ed19710d55d01298ee6;hp=408b49e075068c574f900a756d76551c87ee7eb5;hb=66c935cff37fcab1ef7b0a5cecf5bc1c62d8d2ed;hpb=0844af35eb9a4843fbf7053ca37f9f69bbafdcb1

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 408b49e0..ac2d29ec 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -158,13 +158,7 @@ list."
     (setq args (append args (list query-string)))
 
     ;; Get the reply object as JSON, and parse it into an elisp object.
-    (with-temp-buffer
-      (apply 'call-process (append (list notmuch-command nil (list t nil) nil) args))
-      (goto-char (point-min))
-      (let ((json-object-type 'plist)
-	    (json-array-type 'list)
-	    (json-false 'nil))
-	(setq reply (json-read))))
+    (setq reply (apply #'notmuch-call-notmuch-json args))
 
     ;; Extract the original message to simplify the following code.
     (setq original (plist-get reply :original))