From 892f5a82345005e6847a9443df7ac83088361be1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Jun 2001 16:37:06 +0000
Subject: [PATCH 1/1] ACTION works.

---
 bridge.tcl  | 4 ++--
 irccore.tcl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bridge.tcl b/bridge.tcl
index 6f0c9da..f0f84f5 100755
--- a/bridge.tcl
+++ b/bridge.tcl
@@ -9,12 +9,12 @@ source usebnbot.tcl
 source stdhelp.tcl
 
 proc privmsg_unlogged {p ischan params} {
-    global bots errorCode errorInfo line_org_1char
+    global bots errorCode errorInfo line_org_endchar
     if {$ischan} {
 	if {[catch {
 	    prefix_nick
 	    set text [lindex $params 1]
-	    if {"$line_org_1char" == "\001"} {
+	    if {"$line_org_endchar" == "\001"} {
 		if {[regexp {^\?ACTION (.*)\?$} $text dummy text]} {
 		    set towrite "* $n $text"
 		} else {
diff --git a/irccore.tcl b/irccore.tcl
index 3ff0bd1..1ff6840 100644
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -163,10 +163,10 @@ proc bgerror {msg} {
 }
 
 proc onread {args} {
-    global sock nick calling_nick errorInfo errorCode line_org_1char
+    global sock nick calling_nick errorInfo errorCode line_org_endchar
 
     if {[gets $sock line] == -1} { fail "EOF/error on input" }
-    set line_org_1char [string range $line 0 0]
+    set line_org_endchar [string range $line end end]
     regsub -all "\[^ -\176\240-\376\]" $line ? line
     set org $line
     
-- 
2.11.0