Set calling_nick to new nick on nick changes.

diff --git a/bot.tcl b/bot.tcl
index 3da92b3..1119fbf 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -376,9 +376,10 @@ proc nick_case {user} {
 }
 
 proc msg_NICK {p c newnick} {
-    global nick_arys nick_case
+    global nick_arys nick_case calling_nick
     prefix_nick
     recordlastseen_n $n "changing nicks to $newnick" 0
+    set calling_nick $newnick
     recordlastseen_n $newnick "changing nicks from $n" 1
     set luser [irctolower $n]
     lnick_marktime_cancel $luser