(mail_remote_test):Added OPTION statement

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
         }