From 19f21e9267a4631c6a35556cc1d82e0a038b9c60 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Tue, 30 Jul 2024 17:42:52 -0400 Subject: [PATCH] Define custom var rmail-summary-starting-message. * lisp/mail/rmailsum.el (rmail-summary-starting-message): New custom variable. (rmail-new-summary-1): Use it. (cherry picked from commit a2c439db687774f7b57959c39560993579c5d1bd) --- lisp/mail/rmailsum.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index d2dcedce93e..38fded9b4c3 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -84,6 +84,11 @@ Message A is parent of message B if the id of A appears in the \"References\" or \"In-reply-to\" fields of B, or if A is the first message with the same \"Subject\" as B. First element is ignored.") +(defcustom rmail-summary-starting-message 1 + "Message number to start summarizing at." + :type 'integer + :group 'rmail-summary) + (defvar rmail-summary-message-descendants-vector nil "Vector that holds the direct descendants of each message. This is the antipode of `rmail-summary-message-parents-vector'. @@ -700,7 +705,7 @@ 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 1) + (let ((msgnum rmail-summary-starting-message) (main-buffer (current-buffer)) (total rmail-total-messages) (inhibit-read-only t)) -- 2.39.5