2016-02-24 06:55:55 +03:00
|
|
|
::
|
2016-03-05 03:24:23 +03:00
|
|
|
:::: /hoon/list/gmail/gen
|
2016-02-24 06:55:55 +03:00
|
|
|
::
|
|
|
|
|
/? 310
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
!:
|
|
|
|
|
:- %say
|
2016-02-24 07:59:38 +03:00
|
|
|
|= $: {now/@da eny/@uvI bec/beak}
|
|
|
|
|
arg/$@($~ {number/@u $~})
|
|
|
|
|
$~
|
2016-02-24 06:55:55 +03:00
|
|
|
==
|
2016-02-24 07:59:38 +03:00
|
|
|
?~ arg $(arg [5 ~])
|
2016-02-24 06:55:55 +03:00
|
|
|
:- %noun
|
2016-02-24 07:59:38 +03:00
|
|
|
%+ turn (scag number.arg .^((list {@t @t}) %gx /=gmail=/read/messages))
|
2016-02-24 07:54:14 +03:00
|
|
|
|= {message-id/@t thread-id/@t}
|
|
|
|
|
=+ .^({from/@t subject/@t} %gx /=gmail=/read/messages/[message-id])
|
2016-02-24 07:59:38 +03:00
|
|
|
[from=from (trip subject)]
|
