From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id gD8YN0jpu2B9dQAAsNZ9tg (envelope-from ); Sat, 05 Jun 2021 21:14:48 +0000 Received: from out2.migadu.com ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id ACUSN0Tpu2AKGgAA1q6Kng (envelope-from ); Sat, 05 Jun 2021 21:14:44 +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=1622927684; 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=Rw6YSDjWj0ueYAsMA+TsdcpyaxssLc5wQ/qlvc5Os+Y=; b=XXgFYlaJum2xKIzANwXgGor/9Gp47aTsl5Hqmbspv9Fz6dUHDD2bGubrHWmdv4lmrBFTee XIAZo1h+psj5zeI1FUEonPW9KszanApVWABQdvcAZ6Ke3qh7nSgOVfNjmXrT9hEEBDa5el FUrS4JE6NEsrlHERbZmgvv77pbcK94vmLYCkRl0OoFbq7Q9+gdgLkAidUhBrwydeBEaCrt l41ekWD9KYVUo9L2QjkksAVo3RO5DFYVxK55fWAsgJWnkOVrxC1g40bdcCFpISeq7g+m1D 2DiI9neYl5PL8IhNLv7XnhsqPxn8bbJBxES04Cj8qiB04nvU8bBufKYTpL2Y0w== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH 14/18] piem-lei-show: Record message ID Date: Sat, 5 Jun 2021 17:13:58 -0400 Message-Id: <20210605211402.20304-15-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: pQK6pdVLb9S+ This information will be needed for the "show or scroll" command, as well as for integration with piem.el hooks. --- piem-lei.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/piem-lei.el b/piem-lei.el index 37502d07..3cb61abc 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -77,6 +77,9 @@ (defface piem-lei-show-cited-text-4 '((t :inherit message-cited-text-4)) "Face for 4th-level cited text in `piem-lei-show-mode' buffers.") +(defvar-local piem-lei-show-mid nil + "Message ID shown in current buffer.") + (defun piem-lei-show--fontify-headers () (save-excursion (let (last-value-face) @@ -123,6 +126,7 @@ (defun piem-lei-show (mid &optional display) (delete-region (line-beginning-position) (1+ (line-end-position)))) (piem-lei-show-mode) + (setq piem-lei-show-mid mid) (piem-lei-show--fontify-headers)) (if display (pop-to-buffer (current-buffer)) -- 2.31.1