     irc> chats>> values
     [ dup irc-channel-chat? [ participants>> key? ] [ 2drop f ] if ]
     with filter ;
-
-: to-chats-with-participant ( message nickname -- )
-    chats-with-participant [ to-chat ] with each ;
 
 : remove-participant-from-all ( nick -- )
     dup chats-with-participant [ (remove-participant) ] with each ;

    [ to-chat ] [ drop ] if* ;

M: irc-chat to-chat in-messages>> mailbox-put ;

: unregister-chat ( name -- )
    irc> chats>>

M: single-forward forward-message dup forward-name to-chat ;

M: multiple-forward forward-message
    dup sender>> chats-with-participant to-chat ;
  
M: broadcast-forward forward-message
    irc> chats>> values [ to-chat ] with each ;
