handle quits properly

app/collections.hoon

@@ -206,6 +206,7 @@
   ^-  (quip move _this)
   ::~&  reap+[wir =(~ err)]
   ?~  err
+    ::  XX send message to users inbox
     [~ this]
   ?~  wir
     (mean [leaf+"invalid wire for diff: {(spud wir)}"]~)
@@ -225,7 +226,9 @@
     [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~
   ::
       %our
-    [~ this]
+    ?<  ?=(~ t.wir)
+    :_  this
+    [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~
   ==
 ::
 ::  +quit:
@@ -251,7 +254,9 @@
     [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~
   ::
       %our
-    [~ this]
+    ?<  ?=(~ t.wir)
+    :_  this
+    [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~
   ==
 ::
 ::  +diff-hall-prize:
@@ -550,9 +555,12 @@
 ::  +poke-noun: debugging stuff
 ::
 ++  poke-noun
-  |=  a=@t
+  |=  a=@tas
   ^-  (quip move _this)
-  ?:  =(a 'check all subs')
+  ?+    a
+    [~ this]
+  ::
+      %check-all-subs
     ~&  'here are all incoming subs'
     ~&  ^-  (list (pair ship path))
         %+  turn  ~(tap by sup.bol)
@@ -561,10 +569,17 @@
         [s p]
     [~ this]
   ::
-  ?:  =(a 'print state')
+      %print-state
     ~&  str.sta
     [~ this]
-  [~ this]
+  ::
+      %rebuild-subs
+    :_  this
+    :~  [ost.bol %peer /circles [our.bol %hall] /circles/[(scot %p our.bol)]]
+        [ost.bol %peer /inbox [our.bol %hall] /circle/inbox/config/grams]
+        [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]
+    ==
+  ==
 ::
 ++  is-dm-circle
   |=  circ=circle:hall