mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
bbc4d2c0ee
mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
21 lines
473 B
Plaintext
21 lines
473 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
|
|
"""
|
|
From: {(email-adr-to-text from.a)}
|
|
To: {(email-adr-to-text to.a)}
|
|
Subject: {(trip subject.a)}
|
|
|
|
{(trip body.a)}
|
|
"""
|
|
--
|