mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-25 04:18:08 +01:00
contrib: pick: use the sexp parser
This just converts notmuch-pick to use the sexp parser.
This commit is contained in:
parent
b6a60cf355
commit
5461c31d64
1 changed files with 2 additions and 3 deletions
|
@ -773,8 +773,7 @@ Complete list of currently available key bindings:
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(insert string))
|
(insert string))
|
||||||
(notmuch-json-parse-partial-list 'notmuch-pick-insert-forest-thread
|
(notmuch-sexp-parse-partial-list 'notmuch-pick-insert-forest-thread
|
||||||
'notmuch-pick-show-error
|
|
||||||
results-buf)))))
|
results-buf)))))
|
||||||
|
|
||||||
(defun notmuch-pick-worker (basic-query &optional query-context target buffer)
|
(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
|
(if notmuch-pick-asynchronous-parser
|
||||||
(let ((proc (start-process
|
(let ((proc (start-process
|
||||||
"notmuch-pick" buffer
|
"notmuch-pick" buffer
|
||||||
notmuch-command "show" "--body=false" "--format=json"
|
notmuch-command "show" "--body=false" "--format=sexp"
|
||||||
message-arg search-args))
|
message-arg search-args))
|
||||||
;; Use a scratch buffer to accumulate partial output.
|
;; Use a scratch buffer to accumulate partial output.
|
||||||
;; This buffer will be killed by the sentinel, which
|
;; This buffer will be killed by the sentinel, which
|
||||||
|
|
Loading…
Reference in a new issue