urbit/sur/rfc.hoon
Philip C Monk d146f1d9e4 151ization
2016-02-19 17:47:09 -05:00

22 lines
506 B
Plaintext

:: This structure is the hoon equivalent of the RFC 822 E-mail message format
|%
++ message {from/email-address to/email-address subject/@t body/@t}
++ email-address {name/@t domain/@t}
--
::
|%
++ email-adr-to-text |=({name/@t domain/@t} (trip (rap 3 name '@' domain ~)))
++ message-to-rfc822
|= a/message ^- cord
%- crip ^- tape %- sifo
%- crip
"""
From: {(email-adr-to-text from.a)}
To: {(email-adr-to-text to.a)}
Subject: {(trip subject.a)}
{(trip body.a)}
"""
--