foreach nl $nll {
if {![string compare $nl [irctolower $nick]]} continue
if {[mon_nick_is $mm(nopresence) $nl]} continue
- lappend $l $nl
+ lappend l $nl
}
set mm(present-$ch) $l
mon_updateall $m
proc msg_PART {p c chan} { chan_shortly $chan }
proc msg_KILL {p c user why} { allchans_shortly }
proc msg_QUIT {p c why} { allchans_shortly }
+proc msg_NICK {p c newnick} { allchans_shortly }
proc msg_KICK {p c chans users comment} {
if {[llength $chans] > 1} {
allchans_shortly