Commit 42912a53 42912a5378d15a022cf41d0ddcbb645520124ad7 by Sergey Poznyakoff

Allow test string to begin with two back slashes.

1 parent 0e52073a
...@@ -29,7 +29,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { ...@@ -29,7 +29,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
29 "-message.*" { 29 "-message.*" {
30 regexp -- "-message (.*)" $line dummy message 30 regexp -- "-message (.*)" $line dummy message
31 } 31 }
32 "\\\\" { 32 "^\\\\\[^\\\\\]" {
33 mu_command $line 33 mu_command $line
34 } 34 }
35 "^[^ \t].*=>.*" { 35 "^[^ \t].*=>.*" {
......