* guile: updates for contact.scm, message.scm
This commit is contained in:
@ -23,14 +23,11 @@
|
||||
mu:for-each-message
|
||||
mu:message-list
|
||||
;; internal
|
||||
mu:for-each-msg-internal
|
||||
mu:get-contacts
|
||||
mu:get-header
|
||||
mu:get-field
|
||||
;; message funcs
|
||||
body
|
||||
header
|
||||
contacts
|
||||
;; other symbols
|
||||
mu:bcc
|
||||
mu:body-html
|
||||
@ -83,9 +80,6 @@
|
||||
"Get an arbitrary header HDR from message MSG."
|
||||
(mu:get-header (slot-ref msg 'msg) hdr))
|
||||
|
||||
(define-method (contacts (msg <mu-message>) contact-type)
|
||||
(mu:get-contacts (slot-ref msg 'msg) contact-type))
|
||||
|
||||
(define* (mu:for-each-message func #:optional (expr #t))
|
||||
"Execute function FUNC for each message that matches mu search expression EXPR.
|
||||
If EXPR is not provided, match /all/ messages in the store."
|
||||
|
||||
Reference in New Issue
Block a user