From f0331924b372b2620faaecf59e796dd6d5be4654 Mon Sep 17 00:00:00 2001
From: Fang <fang@fang.io>
Date: Tue, 11 Apr 2017 22:51:47 +0200
Subject: [PATCH] Lowdown %grams now exclusively come from the mailbox.

---
 app/talk-agent.hoon    | 4 ++--
 app/talk-guardian.hoon | 9 +++++++--
 sur/talk.hoon          | 2 +-
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/app/talk-agent.hoon b/app/talk-agent.hoon
index 030272fb0..55a6e916d 100644
--- a/app/talk-agent.hoon
+++ b/app/talk-agent.hoon
@@ -205,9 +205,9 @@
   ++  ra-low-grams
     ::x  apply new grams
     ::
-    |=  {man/knot num/@ud gams/(list telegram)}
+    |=  {num/@ud gams/(list telegram)}
     ^+  +>
-    =.  +>.$  sh-abet:(~(sh-low-grams sh cli man) num gams)
+    =.  +>.$  sh-abet:(~(sh-low-grams sh cli (main our.hid)) num gams)
     (ra-lesson gams)
   ::
   ++  ra-emil                                           ::  ra-emit move list
diff --git a/app/talk-guardian.hoon b/app/talk-guardian.hoon
index b3be76cdc..34400c653 100644
--- a/app/talk-guardian.hoon
+++ b/app/talk-guardian.hoon
@@ -507,8 +507,11 @@
         [new %diff %talk-lowdown %glyph nak]
         ::x  nicknames
         [new %diff %talk-lowdown %names (~(run by folks) some)]
+        ::x  messages
+        :*  new  %diff  %talk-lowdown  %grams  0
+          grams:(~(got by stories) (main our.hid))
+        ==
     ==
-    ::TODO  all mailbox %grams!
   ::
   ++  ra-think                                          ::  publish+review
     ::x  consumes each thought.
@@ -916,7 +919,9 @@
       |=  {num/@ud gam/telegram}
       ^+  +>
       ::x  notify all of our readers.
-      =.  +>  (pa-inform %grams man num gam ~)
+      =.  +>  ::TODO  =?
+        ?.  =(man (main our.hid))  +>
+        (pa-inform %grams num gam ~)
       ::x  notify only the followers who are currently interested.
       =+  ^=  moy
           |-  ^-  (pair (list bone) (list move))
diff --git a/sur/talk.hoon b/sur/talk.hoon
index 5e384bd1a..9adac3829 100644
--- a/sur/talk.hoon
+++ b/sur/talk.hoon
@@ -75,7 +75,7 @@
       {$names (map ship (unit human))}                  ::  new identities
       {$confs (map station (unit config))}              ::  changed configs
       {$precs (map partner atlas)}                      ::  changed presences
-      {$grams (pair knot (pair @ud (list telegram)))}   ::  new grams
+      {$grams (pair @ud (list telegram))}               ::  new grams
   ==                                                    ::
 ++  speech                                              ::  narrative action
   $%  {$lan p/knot q/@t}                                ::  local announce