re-enable message send

app/gmail.hoon

@@ -35,7 +35,7 @@
       $%  {$arch arch}
           {$json json}
           {$null $~}
-          {$inbox (list {thread-id/@t message-id/@t})}
+          {$inbox (list {message-id/@t thread-id/@t})}
           {$message from/@t subject/@t}
       ==
     ++  card
@@ -84,8 +84,8 @@
 ::
 ++  poke-gmail-req
   |=  $:  method/meth  endpoint/path  quy/quay
-          ::mes/$?(message:rfc )
-          label-req:gmail-label
+          mes/message:rfc
+          :: label-req:gmail-label
       ==
   ^-  {(list move) _+>.$}
   ?>  ?=(valid-get-endpoint endpoint)
@@ -98,10 +98,9 @@
       `quay`[[%alt %json] ~] 
   ::
       :+  method  `math`(malt ~[content-type+['application/json']~])
-      ::=+  hoon-json-object=(joba %raw s/(message-to-rfc822:rfc mes))
-      ::=+  request-body=(tact (pojo hoon-json-object))
-      ::(some request-body)
-      ~
+      =+  hoon-json-object=(joba %raw s+(message-to-rfc822:rfc mes))
+      =+  request-body=(tact (pojo hoon-json-object))
+      (some request-body)
       ::(some (pojo label-req-to-json:gmail-label label-req:gmail-label ~)) XX
   ==
 ::

gen/gmail/list.hoon

@@ -10,6 +10,6 @@
     ==
 :-  %noun
 %+  turn  (scag 5 .^((list {@t @t}) %gx /=gmail=/read/messages))
-|=  {thread-id/@t email-id/@t}
-=+  .^({from/@t subject/@t} %gx /=gmail=/read/messages/[email-id])
+|=  {message-id/@t thread-id/@t}
+=+  .^({from/@t subject/@t} %gx /=gmail=/read/messages/[message-id])
 [from=from subject=(trip subject)]

sur/rfc.hoon

@@ -4,7 +4,7 @@
 ++  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