From: Richard Stallman <rms@gnu.org>
Date: Tue, 30 Jul 2024 21:42:52 +0000 (-0400)
Subject: Define custom var rmail-summary-starting-message.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19f21e9267a4631c6a35556cc1d82e0a038b9c60;p=emacs.git

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)
---

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))