From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id SHKWIk/pu2AaYwAAsNZ9tg (envelope-from ); Sat, 05 Jun 2021 21:14:55 +0000 Received: from out2.migadu.com ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id oOeHIkvpu2CoXwAAB5/wlQ (envelope-from ); Sat, 05 Jun 2021 21:14:51 +0000 X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers. DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1; t=1622927691; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=eVeDuHiTBqJl54Dk6mD9mCuQFfzarBFgs/ZfXpd+OAU=; b=HdWhkN2sCVK0Kj0aR2vf9jxrx1zjqzECMpb74RrNn+B34UFYQYJiyaO2RNL5fRl0vl6B2U TI4AdABGKUHNrfobl61i9t/C+fjTlpYPhPED2078eqPQBSHmNEYWOlnqErIAB+tRd2N3op vpYSRv+qzZOtswuFDNVg/0kpVkCaytsQdpI9CXLrjadF93lD/SjHjMl64ytLBRESwmHg5h BM1SDY+B9cX7rJScwTD/ovobEtHLN4PenKJD5imjBELn36gNtfdODV7zvJ2Lx51J66KPRQ ccu/6OxCI3bcB6UyeZkGLfNSyRPR10cyHHg5vkH1geHeZm481coUR0rX+zX9Nw== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH 18/18] piem-lei-query-thread: Use piem-lei-get-mid to get message ID Date: Sat, 5 Jun 2021 17:14:02 -0400 Message-Id: <20210605211402.20304-19-kyle@kyleam.com> In-Reply-To: <20210605211402.20304-1-kyle@kyleam.com> References: <20210605211402.20304-1-kyle@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Migadu-Flow: FLOW_OUT X-Migadu-Auth-User: kyle@kyleam.com X-TUID: B5S3j+Qz1hBa piem-lei-query-thread uses piem-lei-query-get-mid to get the message ID for interactive calls. Switch to piem-lei-get-mid, which uses piem-lei-query-get-mid underneath, so that the message ID can also be extracted from piem-lei-show-mode buffers. --- piem-lei.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piem-lei.el b/piem-lei.el index bcc25896..5795087f 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -498,7 +498,7 @@ (defun piem-lei-query--slurp (args) (defun piem-lei-query-thread (mid) "Show thread containing message MID." (interactive - (list (or (piem-lei-query-get-mid) + (list (or (piem-lei-get-mid) (read-string "Message ID: " nil nil (piem-mid))))) (let* ((records (piem-lei-query--slurp (list "--threads" (concat "m:" mid)))) -- 2.31.1