Added to the repository

+Makefile
+Makefile.in
+*.log
+*.sum
+site.exp
+remote.exp
+data

+AUTOMAKE_OPTIONS = dejagnu
+DEJATOOL = sieve
+RUNTESTFLAGS = 
+CLEANFILES = *.log
+test_dirs = lib sieve scripts
+
+dist-hook:
+	here=`cd $(top_builddir)/$(subdir) && pwd`; \
+	srcdir=`cd $(srcdir) && pwd`; \
+	distdir=`cd $(distdir) && pwd`; \
+	for dir in $(test_dirs); \
+	do \
+            cd $$srcdir;\
+            mkdir $$distdir/$$dir;\
+	    cd $$dir;\
+	    for file in DISTFILES `cat DISTFILES`; do \
+	        d=$$srcdir/$$dir; \
+	        if test -d $$d/$$file; then \
+                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
+		else \
+	            test -f $$distdir/$$dir/$$file \
+                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
+                fi; \
+	    done;\
+        done;\
+	cd $$here
+
+site.exp: Makefile remote.exp
+	@echo 'Making a new site.exp file...'
+	@test ! -f site.bak || rm -f site.bak
+	@echo '## these variables are automatically generated by make ##' > $@-t
+	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
+	@echo '# edit the last section' >> $@-t
+	@echo 'set tool $(DEJATOOL)' >> $@-t
+	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
+	@echo 'set objdir' `pwd` >> $@-t
+	@echo 'set host_alias "$(host_alias)"' >> $@-t
+	@echo 'set host_triplet $(host_triplet)' >> $@-t
+	@echo 'set target_alias "$(target_alias)"' >> $@-t
+	@echo 'set target_triplet $(target_triplet)' >> $@-t
+	@echo 'set build_alias "$(build_alias)"' >> $@-t
+	@echo 'set build_triplet $(build_triplet)' >> $@-t
+	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
+	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
+	@test ! -f site.exp || mv site.exp site.bak
+	@mv $@-t site.exp
+
+remote.exp:;
+	@echo 'Making a new remote.exp file...'
+	@test ! -f remote.bak || rm -f remote.bak
+	@echo '## These variables are used to set up for the remote testing.' >> $@-t
+	@echo '## Please, read file README in this directory for instructions' >> $@-t
+	@echo '## on how to use this file' >> $@-t
+	@echo "set host_board `hostname`" >> $@-t
+	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
+	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
+	@test ! -f remote.exp || mv remote.exp remote.bak
+	@mv $@-t remote.exp
+
+
+DISTCLEANFILES=*.exp *.log *.sum 
+
+distclean-local:
+	-rm -rf	data

+sieve.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+source $top_srcdir/testsuite/lib/mailutils.exp
+set sieve_source_dir "${srcdir}/scripts"
+
+mu_init 
+set env(MAIL) $MU_SPOOL_DIR/sieve.mbox
+
+# sieve_test [-retcode N][-message MESSAGE][-default (FAIL|XFAIL)]
+#            [-reuse-spool]
+#            [ARGS...][-pattern PATTERN...]
+proc sieve_test {args} {
+    global sieve_source_dir
+    
+    set default ""
+    set sw [list]
+    set reuse_spool 0
+    for {set i 0} {$i < [llength $args]} {incr i} {
+	set a [lindex $args $i]
+	if {"$a" == "-default"} {
+	    set default [lindex $args [expr $i + 1]]
+	    incr i
+	} elseif {"$a" == "-message"} {
+	    set message [lindex $args [expr $i + 1]]
+	    incr i
+	} elseif {"$a" == "-pattern"} {
+	    incr i
+	    set pattern [lrange $args $i end]
+	    break
+	} elseif {"$a" == "-reuse-spool"} {
+	    set reuse_spool 1
+	    break
+	} else {
+	    set sw [concat $sw [lindex $args $i]]
+	}
+    }
+
+    switch -- "[lindex $sw end]" {
+	^/.*   { }
+	default {
+	    set sw [concat [lrange $sw 0 [expr [llength $sw] - 2]] \
+		    [list "${sieve_source_dir}/[lindex $sw end]"]]
+	}
+    }
+
+    if {![info exists message]} {
+	set message "[lindex $sw end]"
+    }
+    
+    if {!$reuse_spool} {
+	mu_prepare_spools
+    }
+
+    if [info exists pattern] {
+	mu_exec -default $default -message $message -arg-list $sw \
+		-pattern $pattern
+    } else {
+	mu_exec -default $default -message $message -arg-list $sw
+    }
+    #FIXME: examine the output mailbox
+}
+

+addr_is_all.sv
+addr_is_domain.sv
+addr_is_local.sv
+addr_matches.sv
+address.sv
+allof00.sv
+allof01.sv
+allof11.sv
+anyof00.sv
+anyof01.sv
+anyof11.sv
+discard.sv
+envelope1.sv
+exists1.sv
+exists2.sv
+exists3.sv
+false.sv
+fileinto.sv
+header1.sv
+header2.sv
+header3.sv
+keep.sv
+not.sv
+null.sv
+size1.sv
+size2.sv
+stop.sv
+true.sv

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if address :is :all "From" "coyote@desert.example.org" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if address :is :domain "From" "desert.example.org" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if address :is :localpart "From" "youcouldberich!" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if address :matches :all "From" "*invalid" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if address :is :all "From" "coyote@desert.example.org" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if allof(false,false) {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if allof(false,true) {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if allof(true,true) {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if anyof(false,false) {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if anyof(false,true) {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if anyof(true,true) {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+discard;

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if envelope "from" "coyote@desert.example.org" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if exists "X-Caffeine" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if exists ["X-Caffeine", "From"] {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if exists ["X-Caffeine", "X-Status"] {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if false {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+require "fileinto";
+
+fileinto "%file";

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if header :is "X-Caffeine" "C8H10N4O2" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if header ["X-Caffeine","Subject"] ["C8H10N4O2","Coffee"] {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if header :matches "Subject" "*$$$*" {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+keep;

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if not false {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+# Empty script to test implicit keep.

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if size :under 400 {
+        discard;
+}
+

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if size :over 500 {
+	discard;
+}

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+stop;

+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+if true {
+	discard;
+}

+action.exp
+address.exp
+allof.exp
+anyof.exp
+compile.exp
+envelope.exp
+exists.exp
+false.exp
+header.exp
+not.exp
+size.exp
+true.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test stop.sv -pattern\
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test null.sv -pattern\
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test keep.sv -pattern\
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test discard.sv -pattern\
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+sieve_test fileinto.sv -pattern\
+"FILEINTO on msg uid 1: delivering into %file"\
+"FILEINTO on msg uid 2: delivering into %file"\
+"FILEINTO on msg uid 3: delivering into %file"
+
+mu_test_file "$MU_SPOOL_DIR/file" \
+"From coyote@desert.example.org Sun May  6 22:16:47 2001"\
+"From: coyote@desert.example.org"\
+"To: roadrunner@acme.example.com"\
+"Subject: I have a present for you"\
+"X-Caffeine: C8H10N4O2"\
+""\
+"Look, I'm sorry about the whole anvil thing, and I really"\
+"didn't mean to try and drop it on you from the top of the"\
+"cliff.  I want to try to make it up to you.  I've got some"\
+"great birdseed over here at my place--top of the line"\
+"stuff--and if you come by, I'll have it all wrapped up"\
+"for you.  I'm really sorry for all the problems I've caused"\
+"for you over the years, but I know we can work this out."\
+""\
+-- "--"\
+"Wile E. Coyote   \"Super Genius\"   coyote@desert.example.org"\
+""\
+"From b1ff@de.res.example.com Sun May  6 22:17:15 2001"\
+"From: youcouldberich!@reply-by-postal-mail.invalid"\
+"To: rube@landru.example.edu"\
+"Subject: \$\$\$ YOU, TOO, CAN BE A MILLIONAIRE! \$\$\$"\
+"Date: TBD"\
+""\
+"YOU MAY HAVE ALREADY WON TEN MILLION DOLLARS, BUT I DOUBT"\
+"IT!  SO JUST POST THIS TO SIX HUNDRED NEWSGROUPS!  IT WILL"\
+"GUARANTEE THAT YOU GET AT LEAST FIVE RESPONSES WITH MONEY!"\
+"MONEY! MONEY! COLD HARD CASH!  YOU WILL RECEIVE OVER"\
+"\$20,000 IN LESS THAN TWO MONTHS!  AND IT'S LEGAL!!!!!!!!!"\
+"!!!!!!!!!!!!!!!!!!111111111!!!!!!!11111111111!!1  JUST"\
+"SEND \$5 IN SMALL, UNMARKED BILLS TO THE ADDRESSES BELOW!"\
+""\
+"From bar@dontmailme.org  Fri Dec 28 23:28:09 2001"\
+"Received: (from bar@dontmailme.org)"\
+"\tby dontmailme.org id fERKR9N16790"\
+"\tfor foobar@nonexistent.net; Fri, 28 Dec 2001 22:18:08 +0200"\
+"Date: Fri, 28 Dec 2001 23:28:08 +0200"\
+"From: Bar <bar@dontmailme.org>"\
+"To: Foo Bar <foobar@nonexistent.net>"\
+"Message-Id: <200112232808.fERKR9N16790@dontmailme.org>"\
+"Subject: Coffee"\
+""\
+"How about some coffee?"
+
+# end of action.exp
+

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test addr_is_all.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test addr_is_domain.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test addr_is_local.sv -pattern \
+"KEEP on msg uid 1"\
+"DISCARD on msg uid 2: marking as deleted"\
+"KEEP on msg uid 3"
+
+sieve_test addr_matches.sv -pattern \
+"KEEP on msg uid 1"\
+"DISCARD on msg uid 2: marking as deleted"\
+"KEEP on msg uid 3"
+
+# end of address.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test allof00.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test allof01.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test allof11.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+# end of allof.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test anyof00.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test anyof01.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+sieve_test anyof11.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+# end of anyof.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+set exdir "${srcdir}/../examples"
+
+set scripts [list\
+             ex-null.sv\
+             box.sv\
+             ex-1.10.2.sv\
+             ex-2.3a.sv\
+             ex-2.5.1.sv\
+             ex-2.7.3.sv\
+             ex-3.1a.sv\
+             ex-3.1b.sv\
+             ex-4.2.sv\
+             ex-4.4a.sv\
+             ex-4.4b.sv\
+             ex-4.5.sv\
+             ex-5.1.sv\
+             ex-5.7.sv\
+             ex-save-all.sv\
+             example.sv\
+             exn-2.3b.sv]
+
+# t-complex.sv
+# t-exists.sv
+# t-fileinto.sv
+# t-mailutils.sv
+
+
+for {set s $scripts} {[llength $s] != 0} {set s [lrange $s 1 end]} {
+    set source_name [lindex $s 0]
+    mu_exec -message "sieve -c $source_name" \
+	    -arg -c -arg ${exdir}/$source_name
+}
+
+# end of compile.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test envelope1.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+# end of envelope.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test exists1.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test exists2.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test exists3.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+# end of exists.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test false.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+# end of false.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test header1.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"KEEP on msg uid 3"
+
+sieve_test header2.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"KEEP on msg uid 2"\
+"DISCARD on msg uid 3: marking as deleted"
+
+sieve_test header3.sv -pattern \
+"KEEP on msg uid 1"\
+"DISCARD on msg uid 2: marking as deleted"\
+"KEEP on msg uid 3"
+
+# end of header.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test not.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+# end of not.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test size1.sv -pattern \
+"KEEP on msg uid 1"\
+"KEEP on msg uid 2"\
+"DISCARD on msg uid 3: marking as deleted"
+
+sieve_test size2.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"KEEP on msg uid 3"
+
+# end of size.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#   
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#  
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+sieve_test true.sv -pattern \
+"DISCARD on msg uid 1: marking as deleted"\
+"DISCARD on msg uid 2: marking as deleted"\
+"DISCARD on msg uid 3: marking as deleted"
+
+# end of true.exp