From 5461c31d648f8ee6a8fb713c96ad10bc6d733c29 Mon Sep 17 00:00:00 2001 From: Mark Walters Date: Sat, 1 Jun 2013 20:04:43 +0100 Subject: [PATCH] contrib: pick: use the sexp parser This just converts notmuch-pick to use the sexp parser. --- contrib/notmuch-pick/notmuch-pick.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el index 128fabf8..33905d61 100644 --- a/contrib/notmuch-pick/notmuch-pick.el +++ b/contrib/notmuch-pick/notmuch-pick.el @@ -773,8 +773,7 @@ Complete list of currently available key bindings: (save-excursion (goto-char (point-max)) (insert string)) - (notmuch-json-parse-partial-list 'notmuch-pick-insert-forest-thread - 'notmuch-pick-show-error + (notmuch-sexp-parse-partial-list 'notmuch-pick-insert-forest-thread results-buf))))) (defun notmuch-pick-worker (basic-query &optional query-context target buffer) @@ -796,7 +795,7 @@ Complete list of currently available key bindings: (if notmuch-pick-asynchronous-parser (let ((proc (start-process "notmuch-pick" buffer - notmuch-command "show" "--body=false" "--format=json" + notmuch-command "show" "--body=false" "--format=sexp" message-arg search-args)) ;; Use a scratch buffer to accumulate partial output. ;; This buffer will be killed by the sentinel, which