     [ to-chat ] [ drop ] if* ;
 
 M: irc-chat to-chat in-messages>> mailbox-put ;
+M: sequence to-chat [ to-chat ] with each ;
 
 : unregister-chat ( name -- )
     irc> chats>>

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

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

    irc> chats>> values
    [ dup irc-channel-chat? [ participants>> key? ] [ 2drop f ] if ]
    with filter ;

: remove-participant-from-all ( nick -- )
    dup chats-with-participant [ (remove-participant) ] with each ;
