[PATCH 14/18] piem-lei-show: Record message ID

[Kyle Meyer <kyle@kyleam.com>]

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