From fbcbda85e772393f19b93a931a01b3ff296ed755 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 10 Jun 2002 00:34:50 +0000
Subject: [PATCH] Bugfixes.

---
 ledmodule.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
2.11.0