procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define custom var rmail-summary-starting-message.

Browse source 
* lisp/mail/rmailsum.el (rmail-summary-starting-message):
New custom variable.
(rmail-new-summary-1): Use it.
This commit is contained in:
Richard Stallman 2024-07-30 17:42:52 -04:00
parent b6c18817a2
commit a2c439db68
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmailsum.el
View file

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