let w_resent { date; from; sender; to'; cc; bcc; msg_id; reply_to; } =     (match date with Some v -> w_field (`ResentDate v) | None -> noop)     $ (match from with [] -> noop | v -> w_field (`ResentFrom v))     $ (match sender with Some v -> w_field (`ResentSender v) | None -> noop)     $ (match to' with [] -> noop | v -> w_field (`ResentTo v))     $ (match cc with [] -> noop | v -> w_field (`ResentCc v))     $ (match bcc with [] -> noop | v -> w_field (`ResentBcc v))     $ (match msg_id with Some v -> w_field (`ResentMessageID v) | None -> noop)     $ (match reply_to with [] -> noop | v -> w_field (`ResentReplyTo v))