No OneTemporary
Actions

Size

945 B

Referenced Files

None

Subscribers

None

View Options

	diff --git a/vendor/action.fix.tcl b/vendor/action.fix.tcl
	new file mode 100644
	index 0000000..423e924
	--- /dev/null
	+++ b/vendor/action.fix.tcl
	@@ -0,0 +1,24 @@
	+# action.fix.tcl
	+#
	+# Copyright (C) 2002 - 2017 Eggheads Development Team
	+#
	+# Tothwolf 25May1999: cleanup
	+# Tothwolf 04Oct1999: changed proc names slightly
	+# poptix 07Dec2001: handle irssi (and some others) "correct" messages for DCC CTCP
	+
	+# Fix for mIRC dcc chat /me's:
	+bind filt - "\001ACTION *\001" filt:dcc_action
	+bind filt - "CTCP_MESSAGE \001ACTION *\001" filt:dcc_action2
	+proc filt:dcc_action {idx text} {
	+ return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
	+}
	+
	+proc filt:dcc_action2 {idx text} {
	+ return ".me [string trim [join [lrange [split $text] 2 end]] \001]"
	+}
	+
	+# Fix for telnet session /me's:
	+bind filt - "/me *" filt:telnet_action
	+proc filt:telnet_action {idx text} {
	+ return ".me [join [lrange [split $text] 1 end]]"
	+}