Added to the repository

+# -*- 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. 
+
+# 6.3.11. APPEND Command
+#   Arguments:  mailbox name
+#               OPTIONAL flag parenthesized list
+#               OPTIONAL date/time string
+#               message literal
+#   Responses:  no specific responses for this command
+#   Result:     OK - append completed
+#               NO - append error: can't append to that mailbox, error
+#                    in flags or date/time or message text
+#               BAD - command unknown or arguments invalid
+#
+#      The APPEND command appends the literal argument as a new message
+#      to the end of the specified destination mailbox.  This argument
+#      SHOULD be in the format of an [RFC-822] message.
+
+imap4d_start 
+imap4d_auth "user!passwd" "guessme"
+
+imap4d_test -long "APPEND mbox (\\Seen)"\
+"Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
+From: Fred Foobar <foobar@Blurdybloop.COM>
+Subject: afternoon meeting
+To: mooch@owatagu.siam.edu
+Message-Id: <B27397-0100000@Blurdybloop.COM>
+MIME-Version: 1.0
+Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
+
+Hello Joe, do you think we can meet at 3:30 tomorrow?
+
+" 
+
+imap4d_test -long "APPEND mbox 25-Aug-2002 18:00:00 +0200"\
+"Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
+From: Fred Foobar <foobar@Blurdybloop.COM>
+Subject: afternoon meeting again
+To: mooch@owatagu.siam.edu
+Message-Id: <B27397-0200000@Blurdybloop.COM>
+MIME-Version: 1.0
+Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
+
+Better yet at 04:00?
+
+" 
+
+imap4d_test "SELECT mbox"\
+"3 EXISTS"\
+"3 RECENT"\
+-re {OK \[UIDVALIDITY [0-9]+\] UID valididy status}\
+"OK \[UIDNEXT 4\] Predicted next uid"\
+"OK \[UNSEEN 1\] first unseen messsage"\
+"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\
+"OK \[PERMANENTFLAGS (\\Answered \\Deleted \\Seen)\] Permanent flags"\
+"OK"
+
+imap4d_test "FETCH 2:3 BODY\[\]"\
+"2 FETCH (FLAGS (\\Seen) BODY\[\] {310}"\
+-literal\
+"Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)"\
+"From: Fred Foobar <foobar@Blurdybloop.COM>"\
+"Subject: afternoon meeting"\
+"To: mooch@owatagu.siam.edu"\
+"Message-Id: <B27397-0100000@Blurdybloop.COM>"\
+"MIME-Version: 1.0"\
+"Content-Type: TEXT/PLAIN; CHARSET=US-ASCII"\
+""\
+"Hello Joe, do you think we can meet at 3:30 tomorrow?"\
+")"\
+-noliteral\
+"3 FETCH (FLAGS (\\Seen) BODY\[\] {283}"\
+-literal\
+"Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)"\
+"From: Fred Foobar <foobar@Blurdybloop.COM>"\
+"Subject: afternoon meeting again"\
+"To: mooch@owatagu.siam.edu"\
+"Message-Id: <B27397-0200000@Blurdybloop.COM>"\
+"MIME-Version: 1.0"\
+"Content-Type: TEXT/PLAIN; CHARSET=US-ASCII"\
+""\
+"Better yet at 04:00?"\
+")"\
+"OK"	
+
+#end of append.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. 
+
+# 6.3.3.  CREATE Command
+#   Arguments:  mailbox name
+#   Responses:  no specific responses for this command
+#   Result:     OK - create completed
+#               NO - create failure: can't create mailbox with that name
+#               BAD - command unknown or arguments invalid
+#
+#      The CREATE command creates a mailbox with the given name.  An OK
+#      response is returned only if a new mailbox with that name has been
+#      created.  It is an error to attempt to create INBOX or a mailbox
+#      with a name that refers to an extant mailbox.  Any error in
+#      creation will return a tagged NO response.
+
+imap4d_start 
+imap4d_auth "user!passwd" "guessme"
+
+imap4d_test "CREATE flat"
+
+imap4d_test "CREATE en/to/tre"
+
+imap4d_test -long "APPEND en/to/tre 25-Aug-2002 18:00:00 +0200"\
+"Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
+From: Fred Foobar <foobar@Blurdybloop.COM>
+Subject: afternoon meeting again
+To: mooch@owatagu.siam.edu
+Message-Id: <B27397-0200000@Blurdybloop.COM>
+MIME-Version: 1.0
+Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
+
+Better yet at 04:00?
+
+" 
+
+#      If the server's hierarchy separator character appears elsewhere in
+#      the name, the server SHOULD create any superior hierarchical names
+#      that are needed for the CREATE command to complete successfully.
+
+imap4d_test "SELECT en/to/tre"\
+"1 EXISTS"\
+"1 RECENT"\
+-re {OK \[UIDVALIDITY [0-9]+\] UID valididy status}\
+"OK \[UIDNEXT 2\] Predicted next uid"\
+"OK \[UNSEEN 1\] first unseen messsage"\
+"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\
+"OK \[PERMANENTFLAGS (\\Answered \\Deleted \\Seen)\] Permanent flags"\
+"OK \[READ-WRITE\] SELECT Completed"
+
+imap4d_test "FETCH 1 ALL"\
+"1 FETCH (FLAGS (\\Recent) INTERNALDATE \"25-Aug-2002 16:00:00 +0000\" RFC822.SIZE 283 ENVELOPE (\"Mon, 7 Feb 1994 21:52:25 -0800 (PST)\" \"afternoon meeting again\" ((\"Fred Foobar\" NIL \"foobar\" \"Blurdybloop.COM\")) ((\"Fred Foobar\" NIL \"foobar\" \"Blurdybloop.COM\")) ((\"Fred Foobar\" NIL \"foobar\" \"Blurdybloop.COM\")) ((NIL NIL \"mooch\" \"owatagu.siam.edu\")) ((NIL NIL \"NIL\" NIL)) ((NIL NIL \"NIL\" NIL)) NIL \"<B27397-0200000@Blurdybloop.COM>\"))"\
+"OK"
+
+	
+	
\ No newline at end of file

+# -*- 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. 
+
+# 6.4.3.  EXPUNGE Command
+#   Arguments:  none
+#   Responses:  untagged responses: EXPUNGE
+#   Result:     OK - expunge completed
+#               NO - expunge failure: can't expunge (e.g. permission
+#                    denied)
+#               BAD - command unknown or arguments invalid
+#
+#      The EXPUNGE command permanently removes from the currently
+#      selected mailbox all messages that have the \Deleted flag set.
+#      Before returning an OK to the client, an untagged EXPUNGE response
+#      is sent for each message that is removed.
+
+imap4d_start 
+imap4d_auth "user!passwd" "guessme"
+
+imap4d_test "SELECT mbox1" \
+"4 EXISTS"\
+"4 RECENT"\
+-re {OK \[UIDVALIDITY [0-9]+\] UID valididy status}\
+"OK \[UIDNEXT 5\] Predicted next uid"\
+"OK \[UNSEEN 1\] first unseen messsage"\
+"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\
+"OK \[PERMANENTFLAGS (\\Answered \\Deleted \\Seen)\] Permanent flags" \
+"OK"
+
+imap4d_test "STORE 2:* +FLAGS (\\Deleted)"\
+"2 FETCH FLAGS (\\Deleted \\Recent)"\
+"3 FETCH FLAGS (\\Deleted \\Recent)"\
+"4 FETCH FLAGS (\\Deleted \\Recent)"\
+"OK"	
+
+imap4d_test "EXPUNGE"\
+"2 EXPUNGED"\
+"2 EXPUNGED"\
+"2 EXPUNGED"\
+"1 EXISTS"\
+"1 RECENT"\
+"OK"
+
+imap4d_test "CLOSE"
+
+imap4d_test "SELECT mbox1" \
+"1 EXISTS"\
+-re {OK \[UIDVALIDITY [0-9]+\] UID valididy status}\
+"OK \[UIDNEXT 5\] Predicted next uid"\
+"OK \[UNSEEN 1\] first unseen messsage"\
+"FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)"\
+"OK \[PERMANENTFLAGS (\\Answered \\Deleted \\Seen)\] Permanent flags" \
+"OK"