diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-10-24 23:56:22 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-10-25 22:49:56 -0400 |
| commit | b57090fedb703081216f68050930233eba9ee98f (patch) | |
| tree | 39b12926ff49e6b817eb71c3169b86864bc7f1dd | |
| parent | c4fadf31e6c116f5a8004af56888c81a3204a50c (diff) | |
| download | piem-b57090fedb703081216f68050930233eba9ee98f.tar.gz | |
piem-lei-known-mid-p: Use with-output-to-string
piem-lei-known-mid-p does essentially the same thing as
piem-notmuch-known-mid-p, so collect output in a consistent way.
Message-Id: <20211025035630.297598-3-kyle@kyleam.com>
| -rw-r--r-- | piem-lei.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/piem-lei.el b/piem-lei.el index 611b324..6fb659c 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -579,10 +579,10 @@ Return a list with a `piem-lei-msg' object for each root." "Return non-nil if MID is known to lei. The message ID should not include have surrounding brackets." (not (string-empty-p - (with-temp-buffer - (call-process "lei" nil '(t nil) nil - "q" "--format=ldjson" (concat "mid:" mid)) - (buffer-string))))) + (with-output-to-string + (call-process "lei" + nil (list standard-output nil) nil + "q" "--format=ldjson" (concat "mid:" mid)))))) (defun piem-lei-mid-to-thread (mid) "Return a function that inserts an mbox for MID's thread." |