aboutsummaryrefslogtreecommitdiff
path: root/piem-lei.el
diff options
context:
space:
mode:
Diffstat (limited to 'piem-lei.el')
-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."