From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 10 Jun 2002 00:34:50 +0000 (+0000)
Subject: Bugfixes.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/fbcbda85e772393f19b93a931a01b3ff296ed755?hp=d1dac9c984fdafd154917fe85de40769967cf4d6

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