ACTION works.

diff --git a/bridge.tcl b/bridge.tcl
index 6f0c9da..f0f84f5 100755 (executable)
--- 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 (file)
--- 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