mu-scm: add support for mailing-list

method + doc + test
This commit is contained in:
Dirk-Jan C. Binnema
2025-06-28 11:54:35 +03:00
parent f66172db3b
commit cc39c9cae6
3 changed files with 24 additions and 1 deletions

View File

@ -33,7 +33,6 @@
sexp
date
iso-date
last-change
message-id
@ -42,6 +41,7 @@
subject
references
mailing-list
language
size
@ -223,6 +223,10 @@ fake-message-id (see impls) are filtered out. If there are no references, return
#f."
(find-field message ':references))
(define-method (mailing-list (message <message>))
"Get the mailing-list id for MESSAGE or #f if not available."
(find-field message ':list))
;; Flags.
(define-method (flags (message <message>))