* guile: updates for contact.scm, message.scm

This commit is contained in:
djcb
2012-01-09 08:20:43 +02:00
parent 261e9dff28
commit ba3448fe30
2 changed files with 35 additions and 23 deletions

View File

@ -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."