irc.client: Fix join message handling
parent
4141399beb
commit
dda15b0d06
|
@ -155,7 +155,7 @@ M: privmsg handle-incoming-irc ( privmsg -- )
|
||||||
M: join handle-incoming-irc ( join -- )
|
M: join handle-incoming-irc ( join -- )
|
||||||
[ [ prefix>> parse-name me? ] keep and
|
[ [ prefix>> parse-name me? ] keep and
|
||||||
[ irc> join-messages>> mailbox-put ] when* ]
|
[ irc> join-messages>> mailbox-put ] when* ]
|
||||||
[ dup channel>> to-listener ]
|
[ dup trailing>> to-listener ]
|
||||||
bi ;
|
bi ;
|
||||||
|
|
||||||
M: part handle-incoming-irc ( part -- )
|
M: part handle-incoming-irc ( part -- )
|
||||||
|
|
Loading…
Reference in New Issue