(mail_remote_test):Added OPTION statement

 # -*- tcl -*-
 # -*- tcl -*-
 # This file is part of Mailutils testsuite.
 # 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
 # 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
 # it under the terms of the GNU General Public License as published by

@@ -28,11 +28,15 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
 	    verbose "MAIL FROM $from" 1
 	    verbose "MAIL FROM $from" 1
 	    verbose "MAIL TO $to" 1
 	    verbose "MAIL TO $to" 1
 	    verbose "INPUT $input" 1
 	    verbose "INPUT $input" 1
+	    verbose "OPTIONS $options" 1
 	    verbose "PATTERN $pattern" 1
 	    verbose "PATTERN $pattern" 1
 	    set args ""
 	    set args ""
 	    if {$from != ""} {
 	    if {$from != ""} {
 		append args " --from $from"
 		append args " --from $from"
 	    }
 	    }
+	    if {$options != ""} {
+		append args " $options"
+	    }
 	    if {$to != ""} {
 	    if {$to != ""} {
 		append args " $to"
 		append args " $to"
 	    }
 	    }
@@ -44,6 +48,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
 	    regexp "^MESSAGE (.*)" $line dummy message 
 	    regexp "^MESSAGE (.*)" $line dummy message 
 	    set from ""
 	    set from ""
 	    set to ""
 	    set to ""
+	    set options ""
 	    set input [list]
 	    set input [list]
 	    set pattern [list]
 	    set pattern [list]
 	    set state 1
 	    set state 1
@@ -54,6 +59,9 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
 	"^TO" {
 	"^TO" {
 	    regexp "^TO (.*)" $line dummy to
 	    regexp "^TO (.*)" $line dummy to
 	}
 	}
+	"^OPTIONS" {
+	    regexp "^OPTIONS (.*)" $line dummy options
+	}
 	"^BODY BEGIN" {
 	"^BODY BEGIN" {
 	    set state 2
 	    set state 2
 	}
 	}