change poke-email to use {title/tape body/wall}

And add a "Message from Urbit" title to womb messages

app/gmail.hoon

@@ -79,7 +79,7 @@
   ==
 ::
 ++  poke-email
-  |=  {adr/@ta mez/tape}  ^-  (quip move +>)
+  |=  {adr/@ta tyl/tape mez/wall}  ^-  (quip move +>)
   %-  poke-gmail-req  :*
     %post
     /messages/send
@@ -89,8 +89,8 @@
     =-  (rash adr -)
     [;~((glue pat) . .)]:(cook crip (plus ;~(less pat next)))  :: /[^@]+@[^@]+/
   ::
-    ?:  (lth (lent mez) 57)  [(crip mez) '']
-    [(crip "{(scag 54 mez)}...") (crip mez)]
+    (crip tyl)
+    (role (turn mez crip))
   ==
 ::
 ++  poke-gmail-req

lib/womb.hoon

@@ -119,7 +119,7 @@
       {$knew wire p/ship q/will}                        ::  learn will (old pki)
   ==                                                    ::
 ++  pear                                                ::
-  $%  {$email mail tape}                                ::  send email
+  $%  {$email mail tape wall}                           ::  send email
       {$womb-do-ticket ship}                            ::  request ticket
       {$womb-do-claim ship @p}                          ::  issue ship
       {$drum-put path @t}                               ::  log transaction      
@@ -583,8 +583,8 @@
   |=  {wir/wire adr/mail msg/tape}  ^+  +>
   ?:  replay  +>                      ::  dont's send email in replay mode
   ~&  do-email+[adr msg]
-  (emit %poke [%mail wir] [our %gmail] %email adr msg)
   ::~&([%email-stub adr msg] +>)
+  (emit %poke [%mail wir] [our %gmail] %email adr "A message from Urbit" [msg]~)
 ::
 ++  log-transaction                                   ::  logged poke
   |=  a/transaction  ^+  +>