diff options
| author |  Austin Clements <amdragon@MIT.EDU> | 2012-12-15 15:04:16 -0500 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2012-12-16 17:00:22 -0400 |
| commit | 66c935cff37fcab1ef7b0a5cecf5bc1c62d8d2ed (patch) | |
| tree | 1fb3f2df33641c2813f6be80cdb5fc0f40b97061 /emacs/notmuch-mua.el | |
| parent | 0844af35eb9a4843fbf7053ca37f9f69bbafdcb1 (diff) | |
emacs: Factor out synchronous notmuch JSON invocations
Previously this code was duplicated between show and reply. This
factors out synchronously invoking notmuch and parsing the output as
JSON.
Diffstat (limited to 'emacs/notmuch-mua.el')
| -rw-r--r-- | emacs/notmuch-mua.el | 8 |
1 files changed, 1 insertions, 7 deletions
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)) |