mu-scm: add support for mailing-list
method + doc + test
This commit is contained in:
@ -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>))
|
||||
|
||||
Reference in New Issue
Block a user