summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-06-05 17:13:58 -0400
committerKyle Meyer <kyle@kyleam.com>2021-06-07 00:12:07 -0400
commit546a351b0d0082a0710da2457f7ab78a9af6a1d0 (patch)
treedb8836a071060d1cdeb710c1856bbbbbf59ecf4d
parent792195a2c6debbc3d7ad69d6bc11536a0f393b10 (diff)
downloadpiem-546a351b0d0082a0710da2457f7ab78a9af6a1d0.tar.gz
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>
-rw-r--r--piem-lei.el4
1 files changed, 4 insertions, 0 deletions
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))