chat-hook: on-migrate, only send invites for whitelists
Instead of also sending invites to blacklisted ships, which is obviously
incorrect.
(hookup-group new-group kind.newp)
[(record-group new-group chat)]~
::
- ?. =(our.bol host) ~
+ ?. &(=(our.bol host) ?=(%white kind.newp)) ~
(send-invites chat who.newp)
==
::
