From 546a351b0d0082a0710da2457f7ab78a9af6a1d0 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 5 Jun 2021 17:13:58 -0400
Subject: piem-lei-show: Record message ID

This information will be needed for the "show or scroll" command, as
well as for integration with piem.el hooks.

Message-Id: <20210605211402.20304-15-kyle@kyleam.com>
---
 piem-lei.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/piem-lei.el b/piem-lei.el
index 37502d0..3cb61ab 100644
--- a/piem-lei.el
+++ b/piem-lei.el
@@ -77,6 +77,9 @@
   '((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 @@ unless DISPLAY is non-nil."
         (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))
-- 
cgit v1.2.3