mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
15 lines
417 B
Plaintext
15 lines
417 B
Plaintext
::
|
|
:::: /hoon/send/gmail/gen
|
|
::
|
|
/? 310
|
|
/- rfc
|
|
:- %say
|
|
|= {^ {to/tape subject/tape opt/$@($~ {mess/tape $~})} _from="urbit-test@gmail.com"}
|
|
:- %gmail-req
|
|
:^ %post /messages/'send' ~['uploadType'^'simple']
|
|
^- message:rfc
|
|
=+ parse-adr=;~((glue pat) (cook crip (star ;~(less pat next))) (cook crip (star next)))
|
|
:+ (scan from parse-adr)
|
|
(scan to parse-adr)
|
|
[(crip subject) ?~(opt '' (crip mess.opt))]
|