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 d2dcedce93e4772d4cb77ee833691de4809685ba..38fded9b4c37f98918534a17fad5c04d984d7465 100644 (file)
--- 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))