From b27c8d3d0d286c445888e22c75f8811f457c13f9 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 24 Oct 2021 23:56:30 -0400
Subject: lei: Rename piem-lei-show-mid to piem-lei-buffer-mid

The new name aligns more closely with the piem-lei-buffer-query and
piem-lei-buffer-args buffer-local variables introduced a few commits
back.

Message-Id: <20211025035630.297598-11-kyle@kyleam.com>
---
 piem-lei.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/piem-lei.el b/piem-lei.el
index 2f09c38..ffd72f3 100644
--- a/piem-lei.el
+++ b/piem-lei.el
@@ -93,7 +93,7 @@ If BUFFER is nil, the current buffer is used."
   '((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
+(defvar-local piem-lei-buffer-mid nil
   "Message ID shown in current buffer.")
 
 (defvar-local piem-lei-buffer-args nil
@@ -153,7 +153,7 @@ unless DISPLAY is non-nil."
                        (1+ (line-end-position))))
       (piem-lei-show-mode)
       (setq piem-lei-buffer-args args)
-      (setq piem-lei-show-mid mid)
+      (setq piem-lei-buffer-mid mid)
       (setq  piem-lei-buffer-query query)
       (piem-lei-show--fontify-headers))
     (if display
@@ -339,7 +339,7 @@ line's message, scroll its text upward, passing ARG to
       (let ((w (piem-lei-query--get-visible-message-window)))
         (if (and w
                  (equal (with-current-buffer (window-buffer w)
-                          piem-lei-show-mid)
+                          piem-lei-buffer-mid)
                         mid))
             (with-selected-window w
               (scroll-up-command arg))
@@ -723,7 +723,7 @@ ARGS is passed to the underlying `lei q' call."
       (goto-char (or pt-final (point-min)))
       (piem-lei-query-mode)
       (setq piem-lei-buffer-args args)
-      (setq piem-lei-show-mid mid)
+      (setq piem-lei-buffer-mid mid)
       (setq  piem-lei-buffer-query query)
       (pop-to-buffer-same-window (current-buffer)))))
 
@@ -733,7 +733,7 @@ ARGS is passed to the underlying `lei q' call."
 (defun piem-lei-get-mid ()
   "Return the message ID of a lei buffer."
   (cond ((derived-mode-p 'piem-lei-show-mode)
-         piem-lei-show-mid)
+         piem-lei-buffer-mid)
         ((derived-mode-p 'piem-lei-query-mode)
          (piem-lei-query-get-mid))))
 
-- 
cgit v1.2.3