let
mk_mail_date ?zone t =
format
"%a, %d %b %Y %H:%M:%S %z"
(create ?zone t)