mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
22 lines
506 B
Plaintext
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)}
|
|
"""
|
|
--
|