irc.client: Fix join message handling

db4
Bruno Deferrari 2008-07-09 23:11:39 -03:00
parent 4141399beb
commit dda15b0d06
1 changed files with 1 additions and 1 deletions

View File

@ -155,7 +155,7 @@ M: privmsg handle-incoming-irc ( privmsg -- )
M: join handle-incoming-irc ( join -- )
[ [ prefix>> parse-name me? ] keep and
[ irc> join-messages>> mailbox-put ] when* ]
[ dup channel>> to-listener ]
[ dup trailing>> to-listener ]
bi ;
M: part handle-incoming-irc ( part -- )