let
mk_usenet_date ?zone t =
format
"%A, %d-%b-%y %H:%M:%S %z"
(create ?zone t)