summaryrefslogtreecommitdiff
path: root/mail.remote/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'mail.remote/testsuite')
-rw-r--r--mail.remote/testsuite/lib/mail.remote.exp2
-rw-r--r--mail.remote/testsuite/mail.remote/send.exp8
2 files changed, 9 insertions, 1 deletions
diff --git a/mail.remote/testsuite/lib/mail.remote.exp b/mail.remote/testsuite/lib/mail.remote.exp
index 14d3620ac..b1d6ac9a8 100644
--- a/mail.remote/testsuite/lib/mail.remote.exp
+++ b/mail.remote/testsuite/lib/mail.remote.exp
@@ -1,6 +1,6 @@
# -*- tcl -*-
# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, Free Software Foundation
+# Copyright (C) 2002, 2004, Free Software Foundation
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
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.