From 0fb9d096e38a0d1317fd819f6bccca6cdeb86e77 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Wed, 22 Apr 2026 15:41:40 -0400 Subject: [PATCH] The summary scan should include the current msg and run to end. * lisp/mail/rmailsum.el (rmail-new-summary-1): If we are before, or close to, msg number rmail-summary-starting-message, start the search a little before there. --- lisp/mail/rmailsum.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 8bfd3d91fa0..52dd9aaaf1e 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -789,7 +789,11 @@ message." (sumbuf (rmail-get-create-summary-buffer))) ;; Scan the messages, getting their summary strings ;; and putting the list of them in SUMMARY-MSGS. - (let ((msgnum rmail-summary-starting-message) + (let ((msgnum (min rmail-summary-starting-message + ;; If we are before, or close to, msg number + ;; rmail-summary-starting-message, + ;; start the search a little before there. + (max 1 (floor (* .9 rmail-current-message))))) (main-buffer (current-buffer)) (total rmail-total-messages) (inhibit-read-only t))