From c99281b8adb0927b496c8c103d66bd9f40324bcb Mon Sep 17 00:00:00 2001
Message-Id: <c99281b8adb0927b496c8c103d66bd9f40324bcb.1715884275.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 14 Feb 2002 01:58:32 +0000
Subject: [PATCH] Commas in msg delivery.  Actually do ident events
Organization: Straylight/Edgeware

From: Ian Jackson <ijackson@chiark.greenend.org.uk>

---
 bot.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bot.tcl b/bot.tcl
index ad4de2c..8a10d05 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -315,7 +315,7 @@ proc tell_event_core1 {nl event} {
 	    if {[llength $iml] == 3} {
 		manyset $iml sender sentwhen msg
 		sendprivmsg $nl \
- "$sender asked me [showinterval [expr {$now-$sentwhen}]]\
+ "$sender asked me, [showinterval [expr {$now-$sentwhen}]],\
  to tell you: $msg"
             } else {
 		sendprivmsg $nl \
@@ -1815,8 +1815,8 @@ def_ucmd identpass {
 	    irc-identpass $n
     upvar #0 nick_username($luser) rec_username
     set rec_username $username
-    ucmdr "Pleased to see you, $username." {}
     tell_event $luser ident
+    ucmdr "Pleased to see you, $username." {}
 }
 
 def_ucmd summon {
-- 
[mdw]