From: ijackson <ijackson>
Date: Mon, 10 Jun 2002 00:34:50 +0000 (+0000)
Subject: Bugfixes.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=4aa242d9ce75e3bd0cb5c4c5d73eff3de064d61b;p=ircbot.git

Bugfixes.
---

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 22cfb08..1de1e95 100644
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -144,7 +144,7 @@ proc_mon gotchanlist {ch nll} {
     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
@@ -573,6 +573,7 @@ proc msg_JOIN {p c chan} { chan_shortly $chan }
 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