aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--piem-lei.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/piem-lei.el b/piem-lei.el
index 2bed43e..74bf357 100644
--- a/piem-lei.el
+++ b/piem-lei.el
@@ -370,7 +370,7 @@ Return a list with a `piem-lei-msg' object for each root."
(let* ((records (piem-lei-query--slurp
(list "--threads" (concat "m:" mid))))
(msgs (piem-lei-query--thread records))
- depths)
+ depths pt-final)
(with-current-buffer (get-buffer-create "*lei-thread*")
(let ((inhibit-read-only t))
(erase-buffer)
@@ -403,9 +403,11 @@ Return a list with a `piem-lei-msg' object for each root."
(propertize (concat " <" mid-msg ">")
'font-lock-face
'piem-lei-query-thread-ghost)))
+ (when (equal mid-msg mid)
+ (setq pt-final (line-beginning-position)))
(insert ?\n)))
(insert "End of lei-q results"))
- (goto-char (point-min))
+ (goto-char (or pt-final (point-min)))
(piem-lei-query-mode)
(pop-to-buffer-same-window (current-buffer)))))