diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-06-05 17:13:58 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-06-07 00:12:07 -0400 |
| commit | 546a351b0d0082a0710da2457f7ab78a9af6a1d0 (patch) | |
| tree | db8836a071060d1cdeb710c1856bbbbbf59ecf4d | |
| parent | 792195a2c6debbc3d7ad69d6bc11536a0f393b10 (diff) | |
| download | piem-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.el | 4 |
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)) |