Insert the part of this code that pertains to your needs into tps proc, change the variable to ‘+’:
keylget args MSGID mh
set msg [msgget $mh]
# Set up variables to be used as a substitute for unwanted characters
# Epic is set to convert the variables back to its originals
# in OBX text lines
set char1 “\E\”
set char2 “\S\”
set char3 “\R\”
set char4 “\T\”
# split msg into two variables to take out &’s from
# message but preserve it in the encoding characters
set string1 [string range $msg 0 8]
set string2 [string range $msg 9 end]
if { [string match *|* $string2] ||
[string match *^* $string2] ||
[string match ** $string2] ||
[string match *\* $string2] ||
[string match *&* $string2] ||
[string match *~* $string2] ||
[string match *””* $string2] ||
[string match *”* $string2] } {
regsub -all {\} $string2 $char1 string2
regsub -all {\\} $string2 {} string2
regsub -all {|} $string2 {} string2
regsub -all {^} $string2 $char2 string2
regsub -all {~} $string2 $char3 string2
regsub -all {&} $string2 $char4 string2
regsub -all {“} $string2 {} string2
regsub -all {“”} $string2 {} string2
# reconstruct message by joining both parts
set msg $string1$string2
}
.
