summaryrefslogtreecommitdiff
path: root/mail.remote/testsuite/mail.remote/send.exp
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 +0000
commit6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71 (patch)
tree760b1bb535fc6f500171a2bae1e8d65e53ce4c3b /mail.remote/testsuite/mail.remote/send.exp
parentd4de53bb22818c8a7ffa97daa5deeff2e849deff (diff)
downloadmailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.gz
mailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.bz2
(mail_remote_test):Added OPTION statement
Diffstat (limited to 'mail.remote/testsuite/mail.remote/send.exp')
-rw-r--r--mail.remote/testsuite/mail.remote/send.exp8
1 files changed, 8 insertions, 0 deletions
diff --git a/mail.remote/testsuite/mail.remote/send.exp b/mail.remote/testsuite/mail.remote/send.exp
index dfbf561ec..21e2ee52e 100644
--- a/mail.remote/testsuite/mail.remote/send.exp
+++ b/mail.remote/testsuite/mail.remote/send.exp
@@ -28,11 +28,15 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
verbose "MAIL FROM $from" 1
verbose "MAIL TO $to" 1
verbose "INPUT $input" 1
+ verbose "OPTIONS $options" 1
verbose "PATTERN $pattern" 1
set args ""
if {$from != ""} {
append args " --from $from"
}
+ if {$options != ""} {
+ append args " $options"
+ }
if {$to != ""} {
append args " $to"
}
@@ -44,6 +48,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
regexp "^MESSAGE (.*)" $line dummy message
set from ""
set to ""
+ set options ""
set input [list]
set pattern [list]
set state 1
@@ -54,6 +59,9 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
"^TO" {
regexp "^TO (.*)" $line dummy to
}
+ "^OPTIONS" {
+ regexp "^OPTIONS (.*)" $line dummy options
+ }
"^BODY BEGIN" {
set state 2
}

Return to:

Send suggestions and report system problems to the System administrator.