summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-10-24 23:56:22 -0400
committerKyle Meyer <kyle@kyleam.com>2021-10-25 22:49:56 -0400
commitb57090fedb703081216f68050930233eba9ee98f (patch)
tree39b12926ff49e6b817eb71c3169b86864bc7f1dd
parentc4fadf31e6c116f5a8004af56888c81a3204a50c (diff)
downloadpiem-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.el8
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."