Rewrite libmailutils testsuite in Autotest.

* configure.ac: Create libmailutils/tests/atlocal and
libmailutils/tests/Makefile. Remove libmailutils/testsuite.
* examples/Makefile.am (noinst_PROGRAMS): Remove programs moved
to libmailutils/tests.
* examples/argcv.c -> libmailutils/tests/argcv.c
* libmailutils/testsuite/Decode -> libmailutils/tests/Decode
* libmailutils/testsuite/Encode -> libmailutils/tests/Encode
* examples/decode2047.c: Move to libmailutils/tests
* examples/encode2047.c: Move to libmailutils/tests
* examples/mailcap.c: Likewise.
* examples/url-parse.c: Likewise.

* include/mailutils/Makefile.am: Minor changes.
* libmailutils/Makefile.am (SUBDIRS): Replace testsuite with tests.
* libmailutils/tests/Makefile.am: New file.
* libmailutils/tests/addr.c: New file.
* libmailutils/tests/address.at: New file.
* libmailutils/tests/argcv.at: New file.
* libmailutils/tests/atlocal.in: New file.
* libmailutils/tests/base64d.at: New file.
* libmailutils/tests/base64e.at: New file.
* libmailutils/tests/decode2047.at: New file.
* libmailutils/tests/encode2047.at: New file.
* libmailutils/tests/fltst.c: New file.
* libmailutils/tests/mailcap.at: New file.
* libmailutils/tests/mime.at: New file.
* libmailutils/tests/testsuite.at: New file.
* libmailutils/tests/url.at: New file.

* libmailutils/testsuite/: Delete.

* frm/tests/Makefile.am: Prefix package.m4 creation commands with $(AM_V_GEN).
* readmsg/tests/Makefile.am: Likewise.
* sieve/tests/Makefile.am: Likewise.
* frm/tests/testsuite.at: Minor changes.
* readmsg/tests/testsuite.at: Include testsuite.inc.
* sieve/tests/testsuite.at: Likewise.
* sieve/tests/version.at: Comment out inclusion of testsuite.inc.
* testsuite/testsuite.inc: Add m4_version_prereq.

@@ -1211,7 +1211,9 @@ AC_ARG_WITH([mh-bindir],
 
 
 # Initialize the (autotest) test suite.
 # Initialize the (autotest) test suite.
 AC_CONFIG_TESTDIR(tests)
 AC_CONFIG_TESTDIR(tests)
-AC_CONFIG_FILES([frm/tests/Makefile
+AC_CONFIG_FILES([libmailutils/tests/Makefile
+                 libmailutils/tests/atlocal 
+                 frm/tests/Makefile
                  frm/tests/atlocal
                  frm/tests/atlocal
 		 readmsg/tests/Makefile
 		 readmsg/tests/Makefile
 		 readmsg/tests/atlocal
 		 readmsg/tests/atlocal
@@ -1362,7 +1364,6 @@ AC_CONFIG_FILES([
  mail/Makefile
  mail/Makefile
  mail/testsuite/Makefile
  mail/testsuite/Makefile
  libmailutils/Makefile
  libmailutils/Makefile
- libmailutils/testsuite/Makefile
  messages/Makefile
  messages/Makefile
  messages/testsuite/Makefile
  messages/testsuite/Makefile
  mh/Makefile
  mh/Makefile

@@ -35,18 +35,13 @@ SUBDIRS = config $(CPP_DIR) python scheme
 noinst_PROGRAMS = \
 noinst_PROGRAMS = \
  aclck\
  aclck\
  addr\
  addr\
- argcv\
  base64\
  base64\
- decode2047\
  echosrv\
  echosrv\
- encode2047\
  header\
  header\
  http\
  http\
  iconv\
  iconv\
  listop\
  listop\
  lsf\
  lsf\
- mailcap\
- mimetest\
  msg-send\
  msg-send\
  mta\
  mta\
  mucat\
  mucat\
@@ -56,8 +51,7 @@ noinst_PROGRAMS = \
  musocio\
  musocio\
  $(NNTPCLIENT)\
  $(NNTPCLIENT)\
  $(POP3CLIENT)\
  $(POP3CLIENT)\
- sfrom\
- url-parse
+ sfrom
 
 
 EXTRA_PROGRAMS = pop3client nntpclient
 EXTRA_PROGRAMS = pop3client nntpclient
 
 
@@ -79,15 +73,6 @@ numaddr_la_SOURCES = numaddr.c
 numaddr_la_LIBADD = ${MU_LIB_SIEVE}
 numaddr_la_LIBADD = ${MU_LIB_SIEVE}
 numaddr_la_LDFLAGS = -module -avoid-version -no-undefined -rpath '$(moddir)'
 numaddr_la_LDFLAGS = -module -avoid-version -no-undefined -rpath '$(moddir)'
 
 
-mimetest_LDADD =\
- ../lib/libmuaux.la\
- ${MU_LIB_MBOX}\
- ${MU_LIB_IMAP}\
- ${MU_LIB_POP}\
- ${MU_LIB_AUTH}\
- @MU_AUTHLIBS@\
- ${MU_LIB_MAILUTILS}
-
 msg_send_LDADD =\
 msg_send_LDADD =\
  ../lib/libmuaux.la\
  ../lib/libmuaux.la\
  ${MU_LIB_MAILER}\
  ${MU_LIB_MAILER}\

@@ -23,7 +23,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
 ## ------------ ##
 ## ------------ ##
 
 
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
-	{                                      \
+	$(AM_V_GEN){                                      \
 	  echo '# Signature of the current package.'; \
 	  echo '# Signature of the current package.'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \

@@ -15,10 +15,7 @@
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # This file is part of Mailfromd testsuite. 
 # This file is part of Mailfromd testsuite. 
 
 
-# Require a reasonably recent autotest.
-m4_version_prereq([2.52g])
-
-m4_define([AT_SKIP_TEST],[exit 77])
+m4_include([testsuite.inc])
 
 
 dnl ------------------------------------------------------------
 dnl ------------------------------------------------------------
 dnl FRM_MAILBOX  -- mailbox used for testing
 dnl FRM_MAILBOX  -- mailbox used for testing
@@ -47,8 +44,6 @@ AT_INIT
 
 
 AT_TESTED([frm])
 AT_TESTED([frm])
 
 
-m4_include([testsuite.inc])
-
 MUT_VERSION(frm)
 MUT_VERSION(frm)
 
 
 FRMTEST([no options],[frm00],
 FRMTEST([no options],[frm00],

@@ -20,7 +20,7 @@
 
 
 BUILT_SOURCES=errno.h debug.h
 BUILT_SOURCES=errno.h debug.h
 EXTRA_DIST=errno.hin debug.hm4 types.hin
 EXTRA_DIST=errno.hin debug.hm4 types.hin
-errno.h: $(top_srcdir)/mailbox/errors errno.hin
+errno.h: $(top_srcdir)/libmailutils/errors errno.hin
 	$(AM_V_GEN)$(AWK) -f $(mu_aux_dir)/generr.awk $^ > $@
 	$(AM_V_GEN)$(AWK) -f $(mu_aux_dir)/generr.awk $^ > $@
 
 
 debug.h: $(mu_aux_dir)/debugdef.m4 debug.hm4
 debug.h: $(mu_aux_dir)/debugdef.m4 debug.hm4

@@ -24,7 +24,7 @@ YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
 AM_YFLAGS=-vt
 AM_YFLAGS=-vt
 AM_LFLAGS=-dvp
 AM_LFLAGS=-dvp
 
 
-SUBDIRS = testsuite 
+SUBDIRS = tests 
 
 
 lib_LTLIBRARIES = libmailutils.la
 lib_LTLIBRARIES = libmailutils.la
 
 

+# This file is part of GNU Mailutils.
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+
+EXTRA_DIST = $(TESTSUITE_AT) testsuite package.m4 
+DISTCLEANFILES       = atconfig $(check_SCRIPTS)
+MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
+
+## ------------ ##
+## package.m4.  ##
+## ------------ ##
+
+$(srcdir)/package.m4: $(top_srcdir)/configure.ac
+	$(AM_V_GEN){                                      \
+	  echo '# Signature of the current package.'; \
+	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
+	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \
+	  echo 'm4_define([AT_PACKAGE_VERSION],   [@PACKAGE_VERSION@])'; \
+	  echo 'm4_define([AT_PACKAGE_STRING],    [@PACKAGE_STRING@])'; \
+	  echo 'm4_define([AT_PACKAGE_BUGREPORT], [@PACKAGE_BUGREPORT@])'; \
+	} >$(srcdir)/package.m4
+
+#
+
+## -------------------------- ##
+## Non-installable programs
+## -------------------------- ##
+
+INCLUDES = @MU_LIB_COMMON_INCLUDES@ 
+noinst_PROGRAMS = \
+ addr\
+ argcv\
+ decode2047\
+ encode2047\
+ fltst\
+ mailcap\
+ mimetest\
+ url-parse
+
+LDADD =\
+ ../../lib/libmuaux.la\
+ ${MU_LIB_MBOX}\
+ ${MU_LIB_IMAP}\
+ ${MU_LIB_POP}\
+ ${MU_LIB_AUTH}\
+ @MU_AUTHLIBS@\
+ ${MU_LIB_MAILUTILS}
+
+EXTRA_DIST += Encode Decode
+
+## ------------ ##
+## Test suite.  ##
+## ------------ ##
+
+TESTSUITE_AT = \
+ address.at\
+ argcv.at\
+ base64d.at\
+ base64e.at\
+ decode2047.at\
+ encode2047.at\
+ mailcap.at\
+ mime.at\
+ testsuite.at\
+ url.at
+
+TESTSUITE = $(srcdir)/testsuite
+M4=m4
+
+AUTOTEST = $(AUTOM4TE) --language=autotest
+$(TESTSUITE): package.m4 $(TESTSUITE_AT)
+	$(AM_V_GEN)$(AUTOTEST) -I $(srcdir) -I $(top_srcdir)/testsuite testsuite.at -o $@.tmp
+	$(AM_V_at)mv $@.tmp $@
+
+atconfig: $(top_builddir)/config.status
+	cd $(top_builddir) && ./config.status tests/$@
+
+clean-local:
+	@test ! -f $(TESTSUITE) || $(SHELL) $(TESTSUITE) --clean
+
+check-local: atconfig atlocal $(TESTSUITE) 
+	@$(SHELL) $(TESTSUITE)
+
+# Run the test suite on the *installed* tree.
+#installcheck-local:
+#	$(SHELL) $(TESTSUITE) AUTOTEST_PATH=$(exec_prefix)/bin
+
+

+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 1999, 2000, 2001, 2004, 2005, 2007, 2010 Free Software
+   Foundation, Inc.
+
+   GNU Mailutils 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 3, or (at your option)
+   any later version.
+
+   GNU Mailutils 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 GNU Mailutils; if not, write to the Free Software
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+   MA 02110-1301 USA */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include <mailutils/address.h>
+#include <mailutils/errno.h>
+#include <mailutils/kwd.h>
+#include <mailutils/mutil.h>
+
+#define EPARSE MU_ERR_NOENT
+
+int
+main (int argc, char *argv[])
+{
+  char *str;
+  size_t i;
+  size_t pcount = 0;
+  int status;
+  const char *buf;
+  mu_address_t address = NULL;
+  struct mu_address hint;
+
+  if (argc != 2)
+    {
+      fprintf (stderr, "usage: %s address\n", argv[0]);
+      return 2;
+    }
+  str = argv[1];
+  
+  hint.domain = "localhost";
+  status = mu_address_create_hint (&address, str, &hint, MU_ADDR_HINT_DOMAIN);
+  mu_address_get_count (address, &pcount);
+
+  if (status)
+    {
+      fprintf (stderr, "%s\n", mu_errname (status));
+      return 1;
+    }
+  else
+    printf ("naddr: %lu\n", (unsigned long) pcount);
+
+  for (i = 1; i <= pcount; i++)
+    {
+      int isgroup;
+
+      mu_address_is_group (address, i, &isgroup);
+      printf ("%lu. ", (unsigned long) i);
+
+      if (isgroup)
+        {
+          mu_address_sget_personal (address, i, &buf);
+          printf ("group <%s>:\n", buf);
+        }
+      else
+        {
+          mu_address_sget_email (address, i, &buf);
+          printf ("email <%s>:\n", buf);
+        }
+
+      if (mu_address_sget_personal (address, i, &buf) == 0 && buf && !isgroup)
+        printf ("personal <%s>\n", buf);
+
+      if (mu_address_sget_comments (address, i, &buf) == 0 && buf)
+        printf ("comments <%s>\n", buf);
+
+      if (mu_address_sget_local_part (address, i, &buf) == 0 && buf)
+        {
+          printf ("local-part <%s>", buf);
+
+          if (mu_address_sget_domain (address, i, &buf) == 0 && buf)
+            printf (" domain <%s>", buf);
+
+          printf ("\n");
+        }
+
+      if (mu_address_sget_route (address, i, &buf) == 0 && buf)
+        printf ("route <%s>\n", buf);
+    }
+  mu_address_destroy (&address);
+  return 0;
+}

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+dnl ------------------------------------------------------------
+dnl TESTADDR(ADDR, [KW = `'], [STATUS = `0'], [STDOUT = `'],
+dnl          [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTADDR],[
+AT_SETUP([Address: [$1]])
+AT_KEYWORDS([address $2])
+AT_CHECK([addr '[$1]'],m4_shift(m4_shift($@)))
+AT_CLEANUP
+])
+
+TESTADDR([Sam <@[matrix (smtp)], @[nexus: [node 12]]:sroberts@[10].[1]>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([a@b,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,a@b,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,z@y,],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,a@b,z@y,],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,,,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,,,a@b,,,],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([,a@b],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a@b,],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([,,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([,,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: a@b,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,a@b,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,z@y,;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,a@b,z@y,;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,,,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,,,a@b,,, ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: ,a@b ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: a@b, ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: , ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: ,, ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: ,, ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([Sam <@[matrix (smtp)], @[nexus: [node 12]]:sroberts@[10].[1]> ;],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];],[],
+[0],
+[[naddr: 2
+1. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+2. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+]])
+
+TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];],
+[],
+[0],
+[[naddr: 3
+1. email <lo@hi>:
+local-part <lo> domain <hi>
+2. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+3. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+]])
+
+TESTADDR([Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
+[],
+[0],
+[[naddr: 3
+1. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+2. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+3. email <hi@lo>:
+local-part <hi> domain <lo>
+]])
+
+TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
+[],
+[0],
+[[naddr: 4
+1. email <lo@hi>:
+local-part <lo> domain <hi>
+2. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+3. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+4. email <hi@lo>:
+local-part <hi> domain <lo>
+]])
+
+TESTADDR([Sam <@mail2.uniserve.com:sroberts@uniserve.com>],[],
+[0],
+[naddr: 1
+1. email <sroberts@uniserve.com>:
+personal <Sam>
+local-part <sroberts> domain <uniserve.com>
+route <@mail2.uniserve.com>
+])
+
+TESTADDR([< (hey) @ (hey, )smtp1.sympatico.ca, mail2.uniserve.com (hoo!):sroberts@uniserve.com>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([hw@570.com (Hardware Support Account)],[],
+[0],
+[naddr: 1
+1. email <hw@570.com>:
+personal <Hardware Support Account>
+local-part <hw> domain <570.com>
+])
+
+TESTADDR([list-ietf-wg-apps-drums@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)],[],
+[0],
+[naddr: 1
+1. email <list-ietf-wg-apps-drums@faerber.muc.de>:
+personal <=?ISO-8859-1?Q?Claus_F=E4rber?=>
+local-part <list-ietf-wg-apps-drums> domain <faerber.muc.de>
+])
+
+TESTADDR([<mutt-dev@mutt.org>(mutt #369), guug-bugs-closed@guug.de (#369)],[],
+[0],
+[naddr: 2
+1. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+2. email <guug-bugs-closed@guug.de>:
+personal <#369>
+local-part <guug-bugs-closed> domain <guug.de>
+])
+
+dnl --------------------------------------------------------------------------
+dnl FIXME:
+m4_if([TESTADDR(["'Aernoudt Bottemanne'"	 <Aernoudt.Bottemanne@Informix.com>],[],
+[0],
+[naddr: 1
+1. email <Aernoudt.Bottemanne@Informix.com>:
+personal <'Aernoudt Bottemanne'>
+local-part <Aernoudt.Bottemanne> domain <Informix.com>
+])
+
+TESTADDR(["'Haag, Ullrich - MBDC'" <Ullrich.Haag@MBDC.com>,],[],
+[0],
+[naddr: 1
+1. email <Ullrich.Haag@MBDC.com>:
+personal <'Haag, Ullrich - MBDC'>
+local-part <Ullrich.Haag> domain <MBDC.com>
+])
+
+TESTADDR(["'Michael C. Ibarra'" <ibarra@hawk.com>, arl@q7.net, Al <arl@q7.net>],
+[],
+[0],
+[naddr: 3
+1. email <ibarra@hawk.com>:
+personal <'Michael C. Ibarra'>
+local-part <ibarra> domain <hawk.com>
+2. email <arl@q7.net>:
+local-part <arl> domain <q7.net>
+3. email <arl@q7.net>:
+personal <Al>
+local-part <arl> domain <q7.net>
+])
+
+TESTADDR(["'Sam Roberts'" <sam@cogent.ca>],[],
+[0],
+[naddr: 1
+1. email <sam@cogent.ca>:
+personal <'Sam Roberts'>
+local-part <sam> domain <cogent.ca>
+])
+
+TESTADDR(["'paul@pitbull-productions.com'" <paul@pitbull-productions.com>,],[],
+[0],
+[naddr: 1
+1. email <paul@pitbull-productions.com>:
+personal <'paul@pitbull-productions.com'>
+local-part <paul> domain <pitbull-productions.com>
+])
+
+TESTADDR(["'sam@cogent.ca'" <sam@cogent.ca>, "'sroberts@uniserve.com'"],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR(["'sroberts\@certicom\.ca'" <sroberts@certicom.ca>],[]
+[0],
+[naddr: 1
+1. email <sroberts@certicom.ca>:
+personal <'sroberts@certicom.ca'>
+local-part <sroberts> domain <certicom.ca>
+])
+
+])
+dnl --------------------------------------------------------------------------
+
+TESTADDR(["=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=" <jcmarcos@datavoice.es>],[],
+[0],
+[naddr: 1
+1. email <jcmarcos@datavoice.es>:
+personal <=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=>
+local-part <jcmarcos> domain <datavoice.es>
+])
+
+TESTADDR(["Christian Edward Gruber" <christian.edward.gruber@gmx.net>,],[],
+[0],
+[naddr: 1
+1. email <christian.edward.gruber@gmx.net>:
+personal <Christian Edward Gruber>
+local-part <christian.edward.gruber> domain <gmx.net>
+])
+
+TESTADDR(["D. J. Bernstein" <"djb-   "@cr.yp.to>],[],
+[0],
+[naddr: 1
+1. email <"djb-   "@cr.yp.to>:
+personal <D. J. Bernstein>
+local-part <djb-   > domain <cr.yp.to>
+])
+
+TESTADDR(["D. J. Bernstein" <djb@cr.yp.to>, drums@cs.utk.edu],[],
+[0],
+[naddr: 2
+1. email <djb@cr.yp.to>:
+personal <D. J. Bernstein>
+local-part <djb> domain <cr.yp.to>
+2. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR(["Dave Sill <de5-drums" <de5-drums@sws5.ctd.ornl.gov>],[],
+[0],
+[naddr: 1
+1. email <de5-drums@sws5.ctd.ornl.gov>:
+personal <Dave Sill <de5-drums>
+local-part <de5-drums> domain <sws5.ctd.ornl.gov>
+])
+
+TESTADDR(["Dave \(work\) Baerg \(E-mail\)" <Dave.Baerg@SUMMedia.com>],[],
+[0],
+[naddr: 1
+1. email <Dave.Baerg@SUMMedia.com>:
+personal <Dave (work) Baerg (E-mail)>
+local-part <Dave.Baerg> domain <SUMMedia.com>
+])
+
+TESTADDR(["Demian" <damient@wave.home.com>],[],
+[0],
+[naddr: 1
+1. email <damient@wave.home.com>:
+personal <Demian>
+local-part <damient> domain <wave.home.com>
+])
+
+TESTADDR(["Detailed Revision/Update of Message Standards" <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <Detailed Revision/Update of Message Standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR(["Fred" <fprog@__nowhere__.users.sourceforge.net>],[],
+[0],
+[naddr: 1
+1. email <fprog@__nowhere__.users.sourceforge.net>:
+personal <Fred>
+local-part <fprog> domain <__nowhere__.users.sourceforge.net>
+])
+
+TESTADDR(["Haag, Ullrich - MBDC" <Ullrich.Haag@MBDC.com>],[],
+[0],
+[naddr: 1
+1. email <Ullrich.Haag@MBDC.com>:
+personal <Haag, Ullrich - MBDC>
+local-part <Ullrich.Haag> domain <MBDC.com>
+])
+
+TESTADDR(["Jacob Palme" <jpalme@dsv.su.se>, <drums@cs.utk.edu>],[],
+[0],
+[naddr: 2
+1. email <jpalme@dsv.su.se>:
+personal <Jacob Palme>
+local-part <jpalme> domain <dsv.su.se>
+2. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(["Jakob 'sparky' Kaivo" <jkaivo@elijah.nodomainname.net>],[],
+[0],
+[naddr: 1
+1. email <jkaivo@elijah.nodomainname.net>:
+personal <Jakob 'sparky' Kaivo>
+local-part <jkaivo> domain <elijah.nodomainname.net>
+])
+])
+
+TESTADDR(["Lee R. Copp" <Lee.R.Copp@MichiganScientific.com>],[],
+[0],
+[naddr: 1
+1. email <Lee.R.Copp@MichiganScientific.com>:
+personal <Lee R. Copp>
+local-part <Lee.R.Copp> domain <MichiganScientific.com>
+])
+
+TESTADDR(["Lionel Johnson" <ljohnson**nospam**@sterling1.com>],[],
+[0],
+[naddr: 1
+1. email <ljohnson**nospam**@sterling1.com>:
+personal <Lionel Johnson>
+local-part <ljohnson**nospam**> domain <sterling1.com>
+])
+
+TESTADDR(["Martin [Keso] Keseg" <Martin.Keseg@slovakia.sun.com>],[],
+[0],
+[[naddr: 1
+1. email <Martin.Keseg@slovakia.sun.com>:
+personal <Martin [Keso] Keseg>
+local-part <Martin.Keseg> domain <slovakia.sun.com>
+]])
+
+TESTADDR(["}{ristoph" <news2@kristoph.net>],[],
+[0],
+[naddr: 1
+1. email <news2@kristoph.net>:
+personal <}{ristoph>
+local-part <news2> domain <kristoph.net>
+])
+
+TESTADDR(["fmartens-2000" <fmartens-2000@planet.nl>],[],
+[0],
+[naddr: 1
+1. email <fmartens-2000@planet.nl>:
+personal <fmartens-2000>
+local-part <fmartens-2000> domain <planet.nl>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(["g'o'tz ohnesorge" <gohnesorge@lh-computertechnik.de>],[],
+[0],
+[naddr: 1
+1. email <gohnesorge@lh-computertechnik.de>:
+personal <g'o'tz ohnesorge>
+local-part <gohnesorge> domain <lh-computertechnik.de>
+])
+
+])
+
+TESTADDR(["gao jie" <jiegi@public.wh.hb.cn>],[],
+[0],
+[naddr: 1
+1. email <jiegi@public.wh.hb.cn>:
+personal <gao jie>
+local-part <jiegi> domain <public.wh.hb.cn>
+])
+
+TESTADDR(["gnupg-devel@gnupg.org" <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>],
+[],
+[0],
+[naddr: 1
+1. email <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>:
+personal <gnupg-devel@gnupg.org>
+local-part <gnupg-devel%gnupg.org> domain <f48.n48.z2.fidonet.org>
+])
+
+TESTADDR(["gpg-devel" <gnupg-devel@gnupg.org>],[],
+[0],
+[naddr: 1
+1. email <gnupg-devel@gnupg.org>:
+personal <gpg-devel>
+local-part <gnupg-devel> domain <gnupg.org>
+])
+
+TESTADDR(["jigang" <jigang@jinglun.com.cn>],[],
+[0],
+[naddr: 1
+1. email <jigang@jinglun.com.cn>:
+personal <jigang>
+local-part <jigang> domain <jinglun.com.cn>
+])
+
+TESTADDR(["misc@openbsd.org" <misc@openbsd.org>],[],
+[0],
+[naddr: 1
+1. email <misc@openbsd.org>:
+personal <misc@openbsd.org>
+local-part <misc> domain <openbsd.org>
+])
+
+TESTADDR(["misc@openbsd.org" <misc@openbsd.org>, brian@Awfulhak.org],[],
+[0],
+[naddr: 2
+1. email <misc@openbsd.org>:
+personal <misc@openbsd.org>
+local-part <misc> domain <openbsd.org>
+2. email <brian@Awfulhak.org>:
+local-part <brian> domain <Awfulhak.org>
+])
+
+TESTADDR(["mutt-dev @ mutt . orgThomas Roessler" <roessler@does-not-exist.org>],[],
+[0],
+[naddr: 1
+1. email <roessler@does-not-exist.org>:
+personal <mutt-dev @ mutt . orgThomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+])
+
+TESTADDR(["zwk@f36.n480.z2.fidonet.org" <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>],[],
+[0],
+[naddr: 1
+1. email <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>:
+personal <zwk@f36.n480.z2.fidonet.org>
+local-part <zwk%f36.n480.z2.fidonet.org> domain <f36.n480.z2.fidonet.org>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(['Dan Dall'Acqua' <ddallacqua@noetic.ab.ca>, 'Dave Shyong'],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+])
+
+TESTADDR([0xdeadbeef-request@petting-zoo.net],[],
+[0],
+[naddr: 1
+1. email <0xdeadbeef-request@petting-zoo.net>:
+local-part <0xdeadbeef-request> domain <petting-zoo.net>
+])
+
+TESTADDR([102023-00406421@cnxt19932218.conexant.com],[],
+[0],
+[naddr: 1
+1. email <102023-00406421@cnxt19932218.conexant.com>:
+local-part <102023-00406421> domain <cnxt19932218.conexant.com>
+])
+
+TESTADDR([218164.24.43@jobcontrolcenter.com],[],
+[0],
+[naddr: 1
+1. email <218164.24.43@jobcontrolcenter.com>:
+local-part <218164.24.43> domain <jobcontrolcenter.com>
+])
+
+TESTADDR([<0xdeadbeef-request@petting-zoo.net>],[],
+[0],
+[naddr: 1
+1. email <0xdeadbeef-request@petting-zoo.net>:
+local-part <0xdeadbeef-request> domain <petting-zoo.net>
+])
+
+TESTADDR([<>],[],
+[0],
+[naddr: 1
+1. email <>:
+])
+
+TESTADDR([<Christia.Roberts@nrc.ca>],[],
+[0],
+[naddr: 1
+1. email <Christia.Roberts@nrc.ca>:
+local-part <Christia.Roberts> domain <nrc.ca>
+])
+
+TESTADDR([<Nick_Shelness@motorcity2.lotus.com>],[],
+[0],
+[naddr: 1
+1. email <Nick_Shelness@motorcity2.lotus.com>:
+local-part <Nick_Shelness> domain <motorcity2.lotus.com>
+])
+
+TESTADDR([<all: >],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([<fyi-admin@emyr.net>],[],
+[0],
+[naddr: 1
+1. email <fyi-admin@emyr.net>:
+local-part <fyi-admin> domain <emyr.net>
+])
+
+TESTADDR([<gary.stefanov@medtronic.com>, <HdeVisse@husky.ca>,],[],
+[0],
+[naddr: 2
+1. email <gary.stefanov@medtronic.com>:
+local-part <gary.stefanov> domain <medtronic.com>
+2. email <HdeVisse@husky.ca>:
+local-part <HdeVisse> domain <husky.ca>
+])
+
+TESTADDR([<gnu-pop-list@nodomainname.net>],[],
+[0],
+[naddr: 1
+1. email <gnu-pop-list@nodomainname.net>:
+local-part <gnu-pop-list> domain <nodomainname.net>
+])
+
+TESTADDR([<mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>],[],
+[0],
+[naddr: 1
+1. email <mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>:
+local-part <mutt-dev-owner-sroberts=uniserve.com> domain <ns.gbnet.net>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?= <kolla@nvg.ntnu.no>],[],
+[0],
+[naddr: 1
+1. email <kolla@nvg.ntnu.no>:
+personal <=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?=>
+local-part <kolla> domain <nvg.ntnu.no>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>],[],
+[0],
+[naddr: 1
+1. email <paf@cisco.com>:
+personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
+local-part <paf> domain <cisco.com>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>,],[],
+[0],
+[naddr: 1
+1. email <paf@cisco.com>:
+personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
+local-part <paf> domain <cisco.com>
+])
+
+TESTADDR([=?US-ASCII?Q?gary=5Fc?= <gary_c@cunningham-lee.com>],[],
+[0],
+[naddr: 1
+1. email <gary_c@cunningham-lee.com>:
+personal <=?US-ASCII?Q?gary=5Fc?=>
+local-part <gary_c> domain <cunningham-lee.com>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>,],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?= <0@pervalidus.net>],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?=>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?J=F8rgen_Thomsen?= <jth@postfix.jth.net>],[],
+[0],
+[naddr: 1
+1. email <jth@postfix.jth.net>:
+personal <=?iso-8859-1?Q?J=F8rgen_Thomsen?=>
+local-part <jth> domain <postfix.jth.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?= <jose@jaimedelamo.eu.org>],[],
+[0],
+[naddr: 1
+1. email <jose@jaimedelamo.eu.org>:
+personal <=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?=>
+local-part <jose> domain <jaimedelamo.eu.org>
+])
+
+TESTADDR([=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@dna.fi>],[],
+[0],
+[naddr: 1
+1. email <Mikko.Hanninen@dna.fi>:
+personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
+local-part <Mikko.Hanninen> domain <dna.fi>
+])
+
+TESTADDR([=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@iki.fi>],[],
+[0],
+[naddr: 1
+1. email <Mikko.Hanninen@iki.fi>:
+personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
+local-part <Mikko.Hanninen> domain <iki.fi>
+])
+
+TESTADDR([=?iso-8859-1?Q?R=E9mi_Guyomarch?= <rguyom@321.net>],[],
+[0],
+[naddr: 1
+1. email <rguyom@321.net>:
+personal <=?iso-8859-1?Q?R=E9mi_Guyomarch?=>
+local-part <rguyom> domain <321.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Ulf_M=F6ller?= <ulf@fitug.de>],[],
+[0],
+[naddr: 1
+1. email <ulf@fitug.de>:
+personal <=?iso-8859-1?Q?Ulf_M=F6ller?=>
+local-part <ulf> domain <fitug.de>
+])
+
+TESTADDR([ANDREW MARTIN <amartin@ee.ryerson.ca>],[],
+[0],
+[naddr: 1
+1. email <amartin@ee.ryerson.ca>:
+personal <ANDREW MARTIN>
+local-part <amartin> domain <ee.ryerson.ca>
+])
+
+TESTADDR([Abhay Ghaisas <abhay@sobolev.does-not-exist.org>, mutt-dev@mutt.org],[],
+[0],
+[naddr: 2
+1. email <abhay@sobolev.does-not-exist.org>:
+personal <Abhay Ghaisas>
+local-part <abhay> domain <sobolev.does-not-exist.org>
+2. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+])
+
+TESTADDR([Brian Salter-Duke <b_duke@lacebark.ntu.edu.au>],[],
+[0],
+[naddr: 1
+1. email <b_duke@lacebark.ntu.edu.au>:
+personal <Brian Salter-Duke>
+local-part <b_duke> domain <lacebark.ntu.edu.au>
+])
+
+TESTADDR([Catharine Shyong <shyong@t-iii.com>],[],
+[0],
+[naddr: 1
+1. email <shyong@t-iii.com>:
+personal <Catharine Shyong>
+local-part <shyong> domain <t-iii.com>
+])
+
+TESTADDR([DRUMS-Last-Call:;],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([Detailed Revision/Update of Message Standards <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <Detailed Revision/Update of Message Standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([Eric Allman <eric+ietf@Sendmail.ORG>],[],
+[0],
+[naddr: 1
+1. email <eric+ietf@Sendmail.ORG>:
+personal <Eric Allman>
+local-part <eric+ietf> domain <Sendmail.ORG>
+])
+
+TESTADDR([Gary <Gary@e-c-s-uk.com>],[],
+[0],
+[naddr: 1
+1. email <Gary@e-c-s-uk.com>:
+personal <Gary>
+local-part <Gary> domain <e-c-s-uk.com>
+])
+
+TESTADDR([IETF working group on revision of mail standards <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <IETF working group on revision of mail standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([IETF-Announce:;],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([IETF-Announce:;, drums@cs.utk.edu],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([Jean-Baptiste Marchand <Jean-Baptiste.Marchand@epita.fr>],[],
+[0],
+[naddr: 1
+1. email <Jean-Baptiste.Marchand@epita.fr>:
+personal <Jean-Baptiste Marchand>
+local-part <Jean-Baptiste.Marchand> domain <epita.fr>
+])
+
+TESTADDR([Jonathan Rozes <jrozes+969649116.89117462@vinton.com>],[],
+[0],
+[naddr: 1
+1. email <jrozes+969649116.89117462@vinton.com>:
+personal <Jonathan Rozes>
+local-part <jrozes+969649116.89117462> domain <vinton.com>
+])
+
+TESTADDR([Jose "C." Garcia Sogo<jose@jaimedelamo.eu.org>],[],
+[0],
+[naddr: 1
+1. email <jose@jaimedelamo.eu.org>:
+personal <Jose C. Garcia Sogo>
+local-part <jose> domain <jaimedelamo.eu.org>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR([Marco d'Itri <md@Linux.IT>,[],
+[0],
+1. email <md@Linux.IT>:
+personal <Marco d'Itri>
+local-part <md> domain <Linux.IT>
+])
+])
+
+TESTADDR([No_Reply-To@mapquest.com],[],
+[0],
+[naddr: 1
+1. email <No_Reply-To@mapquest.com>:
+local-part <No_Reply-To> domain <mapquest.com>
+])
+
+TESTADDR([OSULLIE@rte.ie, skidswam@hotmail.com, boot],[],
+[0],
+[naddr: 3
+1. email <OSULLIE@rte.ie>:
+local-part <OSULLIE> domain <rte.ie>
+2. email <skidswam@hotmail.com>:
+local-part <skidswam> domain <hotmail.com>
+3. email <boot@localhost>:
+local-part <boot> domain <localhost>
+])
+
+TESTADDR([Paul Hoffman / IMC <phoffman@imc.org>],[],
+[0],
+[naddr: 1
+1. email <phoffman@imc.org>:
+personal <Paul Hoffman / IMC>
+local-part <phoffman> domain <imc.org>
+])
+
+TESTADDR([Sam],[],
+[0],
+[naddr: 1
+1. email <Sam@localhost>:
+local-part <Sam> domain <localhost>
+])
+
+TESTADDR([Sam Roberts <sam@cogent.ca>],[],
+[0],
+[naddr: 1
+1. email <sam@cogent.ca>:
+personal <Sam Roberts>
+local-part <sam> domain <cogent.ca>
+])
+
+TESTADDR([Sam_Roberts/Certicom%Certicom@certicom.com],[],
+[0],
+[naddr: 1
+1. email <Sam_Roberts/Certicom%Certicom@certicom.com>:
+local-part <Sam_Roberts/Certicom%Certicom> domain <certicom.com>
+])
+
+TESTADDR([Thomas Roessler <roessler@does-not-exist.org>, 490@bugs.guug.de],[],
+[0],
+[naddr: 2
+1. email <roessler@does-not-exist.org>:
+personal <Thomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+2. email <490@bugs.guug.de>:
+local-part <490> domain <bugs.guug.de>
+])
+
+TESTADDR([Thomas Roessler <roessler@does-not-exist.org>, g10@gnupg.org],[],
+[0],
+[naddr: 2
+1. email <roessler@does-not-exist.org>:
+personal <Thomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+2. email <g10@gnupg.org>:
+local-part <g10> domain <gnupg.org>
+])
+
+TESTADDR([ddickey@ip-12-22-50-150.hqglobal.net],[],
+[0],
+[naddr: 1
+1. email <ddickey@ip-12-22-50-150.hqglobal.net>:
+local-part <ddickey> domain <ip-12-22-50-150.hqglobal.net>
+])
+
+TESTADDR([ktb <x.y.f@home.com>],[],
+[0],
+[naddr: 1
+1. email <x.y.f@home.com>:
+personal <ktb>
+local-part <x.y.f> domain <home.com>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR([mcaustin@eudoramail.com, aposner@usaid.gov, Kieran.O'Leary@anpost.ie],[],
+[0],
+[naddr: 3
+1. email <mcaustin@eudoramail.com>:
+local-part <mcaustin> domain <eudoramail.com>
+2. email <aposner@usaid.gov>:
+local-part <aposner> domain <usaid.gov>
+3. email <Kieran.O'Leary@anpost.ie>:
+local-part <Kieran.O'Leary> domain <anpost.ie>
+])
+])
+
+TESTADDR([rfunk@wks.uts.ohio-state.eduofflinemailer-bounce@dikke.penguin.nl],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([root],[],
+[0],
+[naddr: 1
+1. email <root@localhost>:
+local-part <root> domain <localhost>
+])
+
+dnl FIXME srr <sam@localhost>=> error MU_ERR_BAD_822_FORMAT
+
+TESTADDR([whom it may concern: ;;whom.it.may.concern: ;],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([whom it may concern: mutt-dev@mutt.org, mutt-users@mutt.org;],[],
+[0],
+[naddr: 2
+1. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+2. email <mutt-users@mutt.org>:
+local-part <mutt-users> domain <mutt.org>
+])
+
+TESTADDR([Sergey V. Poznyakoff <gray@gnu.org>],[],
+[0],
+[naddr: 1
+1. email <gray@gnu.org>:
+personal <Sergey V. Poznyakoff>
+local-part <gray> domain <gnu.org>
+])
+
+TESTADDR([P. D. Q. Bach <bach@somewhere.org>],[],
+[0],
+[naddr: 1
+1. email <bach@somewhere.org>:
+personal <P. D. Q. Bach>
+local-part <bach> domain <somewhere.org>
+])
+
+TESTADDR(["A bad quote\" <devnull@localhost>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+
+
+
+
+

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+dnl ------------------------------------------------------------
+dnl TESTARGS([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl          [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTARGS],[
+AT_SETUP([Argcv: $1])
+AT_KEYWORDS([argcv $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+argcv < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+TESTARGS([simple input],[],
+[1 2 3],
+[3: 1 2 3
+])
+
+TESTARGS([quoted space],[],
+[quoted\ space],
+[1: "quoted space"
+])
+
+TESTARGS([tab character],[],
+[a "tab	character"],
+[2: a tab\tcharacter
+])
+
+TESTARGS([octal and hex escapes],[],
+[\157\143\164\141\154\40and\x20\x68\x65\x78],
+[1: "octal and hex"
+])
+
+TESTARGS([octal and hex escapes 2],[],
+[\157\143\164\141\154\40 and \x20\x68\x65\x78],
+[3: "octal " and " hex"
+])
+
+TESTARGS([escape representation],[],
+[A\x3-\48\39],
+[1: A\003-\0048\0039
+])
+
+TESTARG([8-bit input],[],
+[×ÅÒÈÎÑÑ ÐÏÌÏ×ÉÎÁ ÔÁÂÌÉÃÙ],
+[3: \327\305\322\310\316\321\321 \320\317\314\317\327\311\316\301 \324\301\302\314\311\303\331])
+
+TESTARG([misquoted input],[],
+[messed        up'quotations     ' in "a  single'" "command" lin"e],
+[6: messed "upquotations     " in "a  single'" command "lin\"e"
+])
+
+TESTARG([unbalanced quote],[],
+['unbalanced "quote],
+[2: 'unbalanced "\"quote"
+])
+
+TESTARG([unbalanced quote 2],[],
+[unbalanced "quote],
+[2: unbalanced "\"quote"
+])
+
+TESTARG([unbalanced quote 3],[],
+["],
+[1: "\""
+])
+
+
+
+
+
+

+# @configure_input@                                     -*- shell-script -*-
+# Configurable variable values for Mailutils test suite.
+# Copyright (C) 2004, 2010 Free Software Foundation, Inc.
+
+PATH=@abs_builddir@:@abs_top_builddir@/frm:$top_srcdir:$srcdir:$PATH
+top_srcdir=@abs_top_srcdir@
+top_builddir=@abs_top_builddir@
+
+  
\ No newline at end of file

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+AT_SETUP([base64 decoding (read)])
+AT_KEYWORDS([base64 base64d base64dr decode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Encode expout
+fltst base64 decode read linelen=0 < $top_srcdir/libmailutils/tests/Decode],
+[0],
+[expout])
+
+AT_CLEANUP
+
+
+AT_SETUP([base64 decoding (write)])
+AT_KEYWORDS([base64 base64d base64dw decode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Encode expout
+fltst base64 decode write linelen=0 < $top_srcdir/libmailutils/tests/Decode],
+[0],
+[expout])
+
+AT_CLEANUP

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+AT_SETUP([base64 encoding (read)])
+AT_KEYWORDS([base64 base64e base64er encode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Decode expout
+fltst base64 encode read nl < $top_srcdir/libmailutils/tests/Encode],
+[0],
+[expout])
+
+AT_CLEANUP
+
+
+AT_SETUP([base64 encoding (write)])
+AT_KEYWORDS([base64 base64e base64ew encode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Decode expout
+fltst base64 encode write nl < $top_srcdir/libmailutils/tests/Encode],
+[0],
+[expout])
+
+AT_CLEANUP
\ No newline at end of file

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+dnl ------------------------------------------------------------
+dnl TESTDEC2047([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl         [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTDEC2047],[
+AT_SETUP([Decode 2047: m4_if([$1],[],[$3],[$1])])
+AT_KEYWORDS([decode2047 decode $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+decode2047 -p < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+TESTDEC2047([],[decode01],
+[=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>],
+[Keith Moore <moore@cs.utk.edu>
+])
+
+TESTDEC2047([],[decode02],
+[=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>],
+[Keld J\370rn Simonsen <keld@dkuug.dk>
+])
+
+TESTDEC2047([],[decode03],
+[=?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>],
+[Andr\351 Pirard <PIRARD@vm1.ulg.ac.be>
+])
+
+TESTDEC2047([],[decode04],
+[=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= ... =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=],
+[If you can read this yo ... u understand the example.
+])
+
+# Malformed input string: lacks trailing =. MU 0.6.90 hanged on it.
+TESTDEC2047([malformed input],[decode05],
+[=?koi8-r?B?RndkOiDSxcfJ09TSwcPJ0SDEz83FzsE?=],
+[Fwd: \322\305\307\311\323\324\322\301\303\311\321 \304\317\315\305
+])
+
+
+

@@ -71,8 +71,9 @@ main (int argc, char *argv[])
       if (len > 0 && buf[len - 1] == '\n')
       if (len > 0 && buf[len - 1] == '\n')
 	buf[len - 1] = 0;
 	buf[len - 1] = 0;
       rc = mu_rfc2047_decode (charset, buf, &p);
       rc = mu_rfc2047_decode (charset, buf, &p);
-      printf ("%s=> %s\n", buf, mu_strerror (rc));
-      if (p)
+      if (rc)
+	fprintf (stderr, "%s", mu_strerror (rc));
+      else if (p)
 	print (p, printable);
 	print (p, printable);
       putchar ('\n');
       putchar ('\n');
       free (p);
       free (p);

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+AT_SETUP([encode2047])
+AT_KEYWORDS([encode])
+
+AT_CHECK([
+AT_DATA(input,[dnl
+\\345\326\305\304\316\305\327\316\331\312\040\317\324\336\305\324
+])
+
+encode2047 -c koi8-r -eB -o < input],
+[0],
+[=?koi8-r?B?5dbFxM7F187ZyiDP1N7F1A==?=
+])
+
+AT_CLEANUP
+

@@ -197,8 +197,9 @@ main (int argc, char *argv[])
 	decode_octal (cmd);
 	decode_octal (cmd);
 	  
 	  
       rc = mu_rfc2047_encode (charset, encoding, cmd, &p);
       rc = mu_rfc2047_encode (charset, encoding, cmd, &p);
-      printf ("%s=> %s\n", buf, mu_strerror (rc));
-      if (p)
+      if (rc)
+	fprintf (stderr, "%s", mu_strerror (rc));
+      else if (p)
 	printf ("%s\n", p);
 	printf ("%s\n", p);
       free (p);
       free (p);
     }
     }

+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 1999, 2000, 2001, 2002, 2005, 2007, 2010 Free Software
+   Foundation, Inc.
+
+   GNU Mailutils 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 3, or (at your option)
+   any later version.
+
+   GNU Mailutils 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 GNU Mailutils; if not, write to the Free Software
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+   MA 02110-1301 USA */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <unistd.h>
+#include <stdio.h>
+#include <assert.h>
+#include <ctype.h>
+#include <string.h>
+#include <mailutils/mailutils.h>
+
+#define ISPRINT(c) ((c)>=' '&&(c)<127) 
+
+int verbose = 0;
+int printable = 0;
+
+static void
+c_copy (mu_stream_t out, mu_stream_t in)
+{
+  if (printable)
+    {
+      char c;
+      size_t size;
+      
+      while (mu_stream_read (in, &c, 1, &size) == 0 && size > 0)
+	{
+	  int rc;
+	  
+	  if (printable && !ISPRINT (c))
+	    {
+	      char outbuf[24];
+	      sprintf (outbuf, "\\%03o", (unsigned char) c);
+	      rc = mu_stream_write (out, outbuf, strlen (outbuf), NULL);
+	    }
+	  else
+	    rc = mu_stream_write (out, &c, 1, NULL);
+	}
+    }
+  else
+    MU_ASSERT (mu_stream_copy (out, in, 0, NULL));
+
+  if (verbose)
+    fprintf (stderr, "\ntotal: %lu/%lu bytes\n",
+	     (unsigned long) mu_stream_bytes_in (in),
+	     (unsigned long) mu_stream_bytes_out (out));
+  
+}
+
+/* Set the maximum line length for the filter NAME to LENGTH.
+   FIXME: This is a kludge. Perhaps API should provide a function
+   for that. */
+static void
+reset_line_length (const char *name, size_t length)
+{
+  mu_list_t list;
+  int status;
+  mu_filter_record_t frec;
+  
+  mu_filter_get_list (&list);
+  status = mu_list_locate (list, (void*)name, (void**)&frec);
+  if (status == 0)
+    frec->max_line_length = length;
+  /* don't bail out, leave that to mu_filter_create */
+}
+
+void
+usage (const char *diag)
+{
+  FILE *fp;
+
+  if (diag)
+    {
+      fp = stderr;
+      fprintf (fp, "%s\n", diag);
+    }
+  else
+    fp = stdout;
+
+  fprintf (fp, "%s",
+	   "usage: fltst FILTER {encode|decode} {read|write} [shift=N] [linelen=N] [verbose] [printable] [nl]\n");
+  exit (diag ? 1 : 0);
+}
+
+int
+main (int argc, char * argv [])
+{
+  mu_stream_t in, out, flt;
+  int i;
+  int mode = MU_FILTER_ENCODE;
+  int flags = MU_STREAM_READ;
+  char *fltname;
+  mu_off_t shift = 0;
+  size_t line_length;
+  int line_length_option = 0;
+  int newline_option = 0;
+  
+  if (argc == 1)
+    usage (NULL);
+  if (argc < 3)
+    usage ("not enough arguments");
+  
+  fltname = argv[1];
+
+  if (strcmp (argv[2], "encode") == 0)
+    mode = MU_FILTER_ENCODE;
+  else if (strcmp (argv[2], "decode") == 0)
+    mode = MU_FILTER_DECODE;
+  else
+    usage ("2nd arg is wrong");
+
+  if (strcmp (argv[3], "read") == 0)
+    flags = MU_STREAM_READ;
+  else if (strcmp (argv[3], "write") == 0)
+    flags = MU_STREAM_WRITE;
+  else
+    usage ("3rd arg is wrong");
+
+  for (i = 4; i < argc; i++)
+    {
+      if (strncmp (argv[i], "shift=", 6) == 0)
+	shift = strtoul (argv[i] + 6, NULL, 0); 
+      else if (strncmp (argv[i], "linelen=", 8) == 0)
+	{
+	  line_length = strtoul (argv[i] + 8, NULL, 10);
+	  line_length_option = 1;
+	}
+      else if (strcmp (argv[i], "verbose") == 0)
+	verbose++;
+      else if (strcmp (argv[i], "printable") == 0)
+	printable++;
+      else if (strcmp (argv[i], "nl") == 0)
+	newline_option++;
+      else
+	usage ("wrong option");
+    }
+  
+  MU_ASSERT (mu_stdio_stream_create (&in, MU_STDIN_FD, 0));
+  MU_ASSERT (mu_stream_open (in));
+
+  MU_ASSERT (mu_stdio_stream_create (&out, MU_STDOUT_FD, 0));
+  MU_ASSERT (mu_stream_open (out));
+
+  if (line_length_option)
+    reset_line_length (fltname, line_length);
+  
+  if (flags == MU_STREAM_READ)
+    {
+      MU_ASSERT (mu_filter_create (&flt, in, fltname, mode,
+				   MU_STREAM_READ|MU_STREAM_SEEK|
+				   MU_STREAM_AUTOCLOSE));
+      if (shift)
+	MU_ASSERT (mu_stream_seek (flt, shift, MU_SEEK_SET, NULL));
+      c_copy (out, flt);
+    }
+  else
+    {
+      MU_ASSERT (mu_filter_create (&flt, out, fltname, mode,
+				   MU_STREAM_WRITE));
+      if (shift)
+	MU_ASSERT (mu_stream_seek (in, shift, MU_SEEK_SET, NULL));
+      c_copy (flt, in);
+
+      mu_stream_close (in);
+      mu_stream_destroy (&in);
+    }
+
+  mu_stream_close (flt);
+  mu_stream_destroy (&flt);
+  
+  if (newline_option)
+    mu_stream_write (out, "\n", 1, NULL);
+    
+  mu_stream_close (out);
+  mu_stream_destroy (&out);
+  
+  return 0;
+}

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+dnl ------------------------------------------------------------
+dnl MAILCAP([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl         [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([MAILCAP],[
+AT_SETUP([Mailcap: [$1]])
+AT_KEYWORDS([mailcap $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+mailcap input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+
+MAILCAP([1],[mailcap01],
+[text/plain; less '%s'; needsterminal],
+[[entry[1]
+	typefield: text/plain
+	view-command: less '%s'
+	fields[1]: needsterminal
+	
+]])
+
+MAILCAP([2],[mailcap02],
+[text/html; gnome-help-browser '%s'; nametemplate=%s.html; test=test -n "$DISPLAY"],
+[[entry[1]
+	typefield: text/html
+	view-command: gnome-help-browser '%s'
+	fields[1]: nametemplate=%s.html
+	fields[2]: test=test -n "$DISPLAY"
+
+]])
+
+MAILCAP([3],[mailcap03],
+[application/x-troff-man; /usr/bin/nroff -mandoc -Tlatin1; \
+copiousoutput; print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
+],
+[[entry[1]
+	typefield: application/x-troff-man
+	view-command: /usr/bin/nroff -mandoc -Tlatin1
+	fields[1]: copiousoutput
+	fields[2]: print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
+
+]])
+
+MAILCAP([4],[mailcap04],
+[text/plain; shownonascii iso-8859-1 '%s'; description="Plain ASCII Text"; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+	typefield: text/plain
+	view-command: shownonascii iso-8859-1 '%s'
+	fields[1]: description="Plain ASCII Text"
+	fields[2]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([5],[mailcap05],
+[text/richtext; shownonascii iso-8859-1 -e richtext -p '%s'; \
+description="Richtext"; copiousoutput; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+	typefield: text/richtext
+	view-command: shownonascii iso-8859-1 -e richtext -p '%s'
+	fields[1]: description="Richtext"
+	fields[2]: copiousoutput
+	fields[3]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([6],[mailcap06],
+[text/enriched; shownonascii iso-8859-1 -e richtext -e -p '%s'; \
+description="Enriched Text"; \
+copiousoutput; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+	typefield: text/enriched
+	view-command: shownonascii iso-8859-1 -e richtext -e -p '%s'
+	fields[1]: description="Enriched Text"
+	fields[2]: copiousoutput
+	fields[3]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([7],[mailcap07],
+[message/partial; showpartial '%s' %{id} %{number} %{total}; description="An incomplete message"],
+[[entry[1]
+	typefield: message/partial
+	view-command: showpartial '%s' %{id} %{number} %{total}
+	fields[1]: description="An incomplete message"
+
+]])
+
+MAILCAP([8],[mailcap08],
+[message/external-body; showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}; needsterminal; description="A reference to data stored in an external location"; composetyped="extcompose '%s"'],
+[[entry[1]
+	typefield: message/external-body
+	view-command: showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}
+	fields[1]: needsterminal
+	fields[2]: description="A reference to data stored in an external location"
+	fields[3]: composetyped="extcompose '%s"'
+
+]])
+
+MAILCAP([9],[mailcap09],
+[application/x-dvi; /usr/bin/xdvi '%s'; test=test -n "$DISPLAY"; description=TeX DVI file; nametemplate=%s.dvi],
+[[entry[1]
+	typefield: application/x-dvi
+	view-command: /usr/bin/xdvi '%s'
+	fields[1]: test=test -n "$DISPLAY"
+	fields[2]: description=TeX DVI file
+	fields[3]: nametemplate=%s.dvi
+
+]])
+
+MAILCAP([10],[mailcap10],
+[text/plain; more '%s'; needsterminal],
+[[entry[1]
+	typefield: text/plain
+	view-command: more '%s'
+	fields[1]: needsterminal
+
+]])
+
+MAILCAP([11],[mailcap11],
+[text/html; /usr/bin/links '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/links '%s'
+	fields[1]: needsterminal
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([12],[mailcap12],
+[text/richtext; richtext '%s'; description="Richtext"; copiousoutput],
+[[entry[1]
+	typefield: text/richtext
+	view-command: richtext '%s'
+	fields[1]: description="Richtext"
+	fields[2]: copiousoutput
+
+]])
+
+MAILCAP([13],[mailcap13],
+[text/enriched; richtext -e '%s'; description="Enriched Text"; copiousoutput],
+[[entry[1]
+	typefield: text/enriched
+	view-command: richtext -e '%s'
+	fields[1]: description="Enriched Text"
+	fields[2]: copiousoutput
+
+]])
+
+MAILCAP([14],[mailcap14],
+[text/html; /usr/bin/w3m -T text/html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/w3m -T text/html '%s'
+	fields[1]: needsterminal
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([15],[mailcap15],
+[text/html; /usr/bin/links -dump '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/links -dump '%s'
+	fields[1]: copiousoutput
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([16],[mailcap16],
+[text/html; /usr/bin/lynx -force_html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/lynx -force_html '%s'
+	fields[1]: needsterminal
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([17],[mailcap17],
+[text/html; /usr/bin/w3m -dump -T text/html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/w3m -dump -T text/html '%s'
+	fields[1]: copiousoutput
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([18],[mailcap18],
+[text/html; /usr/bin/html2text '%s'; copiousoutput; description=HTML Text],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/html2text '%s'
+	fields[1]: copiousoutput
+	fields[2]: description=HTML Text
+
+]])
+
+MAILCAP([19],[mailcap19],
+[text/html; /usr/bin/lynx -dump -force_html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+	typefield: text/html
+	view-command: /usr/bin/lynx -dump -force_html '%s'
+	fields[1]: copiousoutput
+	fields[2]: description=HTML Text
+	fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([20],[mailcap20],
+[text/*; less '%s'; needsterminal],
+[[entry[1]
+	typefield: text/*
+	view-command: less '%s'
+	fields[1]: needsterminal
+
+]])
+
+MAILCAP([21],[mailcap21],
+[text/*; more '%s'; needsterminal],
+[[entry[1]
+	typefield: text/*
+	view-command: more '%s'
+	fields[1]: needsterminal
+
+]])
+
+MAILCAP([22],[mailcap22],
+[application/x-debian-package; /usr/lib/mime/debian-view '%s'; \
+needsterminal; description=Debian GNU/Linux Package; \
+nametemplate=%s.deb],
+[[entry[1]
+	typefield: application/x-debian-package
+	view-command: /usr/lib/mime/debian-view '%s'
+	fields[1]: needsterminal
+	fields[2]: description=Debian GNU/Linux Package
+	fields[3]: nametemplate=%s.deb
+
+]])
+
+MAILCAP([23],[mailcap23],
+[audio/basic; /usr/lib/mime/playaudio '%s'; description=Basic uLaw Audio; \
+nametemplate=%s.au],
+[[entry[1]
+	typefield: audio/basic
+	view-command: /usr/lib/mime/playaudio '%s'
+	fields[1]: description=Basic uLaw Audio
+	fields[2]: nametemplate=%s.au
+
+]])

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 #
 #
-# 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 3 of the License, or
-# (at your option) any later version.
+# GNU Mailutils 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 3, 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.
+# 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
 # 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-# NOTE: Apart from this comment, the contents of this file is taken verbatim.
-#       Please be sure you don't add any extra newlines.
-Message: 1
+# along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+AT_SETUP([mime])
+
+# FIXME: Mimetest should probably be fixed to avoid the use of `tr'
+# and `sed' here.
+AT_CHECK([mimetest -i 0 -p $top_srcdir/testsuite/spool/mbox1 | dnl
+          tr '\t' ' ' | sed 's/  *$//'],
+[0],
+[Message: 1
 From: Foo Bar <foobar@nonexistent.net>
 From: Foo Bar <foobar@nonexistent.net>
 Subject: Jabberwocky
 Subject: Jabberwocky
 Number of parts in message - 1
 Number of parts in message - 1
@@ -100,7 +105,7 @@ With gently smiling jaws!
 End
 End
 Type of part 2 = application/octet-stream
 Type of part 2 = application/octet-stream
 Message part size - 645/11: 183/5, 462/6
 Message part size - 645/11: 183/5, 462/6
-Attachment - saving [msg.21]
+Attachment - saving [[msg.21]]
 Begin
 Begin
 `You are old, Father William,' the young man said,
 `You are old, Father William,' the young man said,
 `And your hair has become very white;
 `And your hair has become very white;
@@ -141,7 +146,7 @@ Encapsulated message :
 Begin
 Begin
 Type of part 1 = application/octet-stream
 Type of part 1 = application/octet-stream
 Message part size - 663/12: 184/5, 479/7
 Message part size - 663/12: 184/5, 479/7
-Attachment - saving [msg.22]
+Attachment - saving [[msg.22]]
 Begin
 Begin
 `You are old,' said the youth, `as I mentioned before,
 `You are old,' said the youth, `as I mentioned before,
 And have grown most uncommonly fat;
 And have grown most uncommonly fat;
@@ -160,7 +165,7 @@ Encapsulated message :
 Begin
 Begin
 Type of part 1 = application/octet-stream
 Type of part 1 = application/octet-stream
 Message part size - 668/12: 185/5, 483/7
 Message part size - 668/12: 185/5, 483/7
-Attachment - saving [msg.23]
+Attachment - saving [[msg.23]]
 Begin
 Begin
 `You are old,' said the youth, `and your jaws are too weak
 `You are old,' said the youth, `and your jaws are too weak
 For anything tougher than suet;
 For anything tougher than suet;
@@ -175,7 +180,7 @@ Has lasted the rest of my life.'
 End
 End
 Type of part 2 = application/octet-stream
 Type of part 2 = application/octet-stream
 Message part size - 679/12: 184/5, 495/7
 Message part size - 679/12: 184/5, 495/7
-Attachment - saving [msg.24]
+Attachment - saving [[msg.24]]
 Begin
 Begin
 `You are old,' said the youth, `one would hardly suppose
 `You are old,' said the youth, `one would hardly suppose
 That your eye was as steady as ever;
 That your eye was as steady as ever;
@@ -210,3 +215,6 @@ Begin
 
 
 
 
 End
 End
+])
+
+AT_CLEANUP
\ No newline at end of file

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+m4_include([testsuite.inc])
+
+AT_INIT
+
+m4_include([address.at])
+m4_include([argcv.at])
+m4_include([mime.at])
+m4_include([url.at])
+m4_include([mailcap.at])
+m4_include([base64e.at])
+m4_include([base64d.at])
+m4_include([decode2047.at])
+m4_include([encode2047.at])

@@ -39,7 +39,7 @@
 	  mu_error ("cannot get %s: %s", #field, mu_strerror (status));	\
 	  mu_error ("cannot get %s: %s", #field, mu_strerror (status));	\
 	  exit (1);					                \
 	  exit (1);					                \
         }                                                               \
         }                                                               \
-      printf ("\t" #field " <%s>\n", buf)
+      printf (#field " <%s>\n", buf)
 
 
 static void
 static void
 print_fvpairs (mu_url_t url)
 print_fvpairs (mu_url_t url)
@@ -55,7 +55,7 @@ print_fvpairs (mu_url_t url)
   if (fvc == 0)
   if (fvc == 0)
     return;
     return;
   for (i = 0; i < fvc; i++)
   for (i = 0; i < fvc; i++)
-    printf ("\tparam[%lu] <%s>\n", (unsigned long) i, fvp[i]);
+    printf ("param[%lu] <%s>\n", (unsigned long) i, fvp[i]);
 }
 }
 
 
 static void
 static void
@@ -72,7 +72,7 @@ print_query (mu_url_t url)
   if (qargc == 0)
   if (qargc == 0)
     return;
     return;
   for (i = 0; i < qargc; i++)
   for (i = 0; i < qargc; i++)
-    printf ("\tquery[%lu] <%s>\n", (unsigned long) i, qargv[i]);
+    printf ("query[%lu] <%s>\n", (unsigned long) i, qargv[i]);
 }
 }
 
 
 int
 int
@@ -99,18 +99,16 @@ main ()
         }
         }
       if ((rc = mu_url_parse (u)) != 0)
       if ((rc = mu_url_parse (u)) != 0)
         {
         {
-          printf ("%s => FAILED: [%d] %s\n",
-                  str, rc, mu_strerror (rc));
+          fprintf (stderr, "%s\n", mu_errname (rc));
           continue;
           continue;
         }
         }
-      printf ("%s => SUCCESS\n", str);
 
 
       GET_AND_PRINT (scheme, u, buf, rc);
       GET_AND_PRINT (scheme, u, buf, rc);
       GET_AND_PRINT (user, u, buf, rc);
       GET_AND_PRINT (user, u, buf, rc);
 
 
       rc = mu_url_get_secret (u, &secret);
       rc = mu_url_get_secret (u, &secret);
       if (rc == MU_ERR_NOENT)
       if (rc == MU_ERR_NOENT)
-	printf ("\tpasswd <>\n");
+	printf ("passwd <>\n");
       else if (rc)
       else if (rc)
 	{
 	{
 	  mu_error ("cannot get %s: %s", "passwd", mu_strerror (rc));
 	  mu_error ("cannot get %s: %s", "passwd", mu_strerror (rc));
@@ -118,7 +116,7 @@ main ()
         }
         }
       else
       else
 	{
 	{
-	  printf ("\tpasswd <%s>\n", mu_secret_password (secret));
+	  printf ("passwd <%s>\n", mu_secret_password (secret));
 	  mu_secret_password_unref (secret);
 	  mu_secret_password_unref (secret);
 	}
 	}
       
       
@@ -131,7 +129,7 @@ main ()
 	  mu_error ("cannot get %s: %s", "port", mu_strerror (rc));	
 	  mu_error ("cannot get %s: %s", "port", mu_strerror (rc));	
 	  exit (1);					
 	  exit (1);					
         }                                               
         }                                               
-      printf ("\tport %ld\n", port);
+      printf ("port %ld\n", port);
       
       
       GET_AND_PRINT (path, u, buf, rc);
       GET_AND_PRINT (path, u, buf, rc);
       print_fvpairs (u);
       print_fvpairs (u);

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils 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 3, 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 GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
+
+dnl ------------------------------------------------------------
+dnl TESTURL([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl         [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTURL],[
+AT_SETUP([URL: m4_if([$1],[],[$3],[$1])])
+AT_KEYWORDS([url $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+url-parse < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+
+TESTURL([],[],
+[scheme:],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[scheme:/absolute/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </absolute/path>
+])
+
+TESTURL([],[],
+[scheme:relative/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <relative/path>
+])
+
+TESTURL([],[],
+[scheme:///absolute/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </absolute/path>
+])
+
+TESTURL([],[],
+[scheme://%75%73%65%72:%70%61%73%73@%68%6f%73%74],
+[scheme <scheme>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[ftp://user:pass@host//a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@host//a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@host//a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@//a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@//a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:@host//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@//a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:@//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://://a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://@//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp:/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@host/a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+
+TESTURL([],[],
+[ftp://:pass@host/a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@host/a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@/a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@/a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:@host/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@/a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:@/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://@/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp:///a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[pop://pop.example.net],
+[scheme <pop>
+user <>
+passwd <>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user:passwd@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <passwd>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user;auth=*@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <>
+auth <*>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://pop.example.net:111],
+[scheme <pop>
+user <>
+passwd <>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user:passwd@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <passwd>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user;auth=*@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <>
+auth <*>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net/mbox],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111/mbox],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://imap.example.net/mbox/user@host],
+[scheme <imap>
+user <imap.example.net/mbox/user>
+passwd <>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <imap.example.net>
+passwd <111/mbox/user>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org/mbox/user%40host],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org:111/mbox/user%40host],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org:111/mbox/user%40host;type=pass],
+[[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 111
+path <mbox/user@host>
+param[0] <type=pass>
+]])
+
+TESTURL([],[],
+[mbox:/var/spool/mail;type=index;param=2;user=gray],
+[[scheme <mbox>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </var/spool/mail>
+param[0] <type=index>
+param[1] <param=2>
+param[2] <user=gray>
+]])
+
+TESTURL([],[],
+[mbox:///var/spool/mail;type=index;param=2;user=gray],
+[[scheme <mbox>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </var/spool/mail>
+param[0] <type=index>
+param[1] <param=2>
+param[2] <user=gray>
+]])
+
+TESTURL([],[],
+[http://gnu.org.ua/home/gray?prog&arg1&arg2],
+[[scheme <http>
+user <>
+passwd <>
+auth <>
+host <gnu.org.ua>
+port 0
+path <home/gray>
+query[0] <prog>
+query[1] <arg1>
+query[2] <arg2>
+]])
+
+TESTURL([],[],
+[http://gnu.org.ua/home/gray;foo=bar;baz=qux?prog&arg%201&arg%202],
+[[scheme <http>
+user <>
+passwd <>
+auth <>
+host <gnu.org.ua>
+port 0
+path <home/gray>
+param[0] <foo=bar>
+param[1] <baz=qux>
+query[0] <prog>
+query[1] <arg 1>
+query[2] <arg 2>
+]])
+
+

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

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-test; abc <sascha@silbe.org>=> error MU_ERR_BAD_822_FORMAT
-
-Sam <@[matrix (smtp)], @[nexus: \[node 12\]]:sroberts@[10].[1]> ;=> error MU_ERR_BAD_822_FORMAT
-
-a@b,z@y=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-,a@b,z@y=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a@b,z@y,=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-,a@b,z@y,=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a@b,,z@y=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a@b,,,z@y=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-,,,a@b,,,=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-,a@b=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-a@b,=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-,=> error MU_ERR_EMPTY_ADDRESS
-
-,,=> error MU_ERR_EMPTY_ADDRESS
-
-,,,=> error MU_ERR_EMPTY_ADDRESS
-
-a group: a@b,z@y ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: ,a@b,z@y ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: a@b,z@y, ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: ,a@b,z@y, ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: a@b,,z@y ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: a@b,,,z@y ;=> pcount 2
-1 email <a@b>
-   local-part <a> domain <b>
-2 email <z@y>
-   local-part <z> domain <y>
-
-a group: ,,,a@b,,, ;=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-a group: ,a@b ;=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-a group: a@b, ;=> pcount 1
-1 email <a@b>
-   local-part <a> domain <b>
-
-a group: , ;=> error MU_ERR_EMPTY_ADDRESS
-
-a group: ,, ;=> error MU_ERR_EMPTY_ADDRESS
-
-a group: ,,, ;=> error MU_ERR_EMPTY_ADDRESS
-
-Sam <@[matrix (smtp)], @[nexus: \[node 12\]]:sroberts@[10].[1]> ;=> error MU_ERR_BAD_822_FORMAT
-
-Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];=> pcount 2
-1 email <sam@sam>
-   personal <Sam>
-   local-part <sam> domain <sam>
-   route <@[matrix (smtp)]>
-2 email <sroberts@[10].[1]>
-   local-part <sroberts> domain <[10].[1]>
-
-lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];=> pcount 3
-1 email <lo@hi>
-   local-part <lo> domain <hi>
-2 email <sam@sam>
-   personal <Sam>
-   local-part <sam> domain <sam>
-   route <@[matrix (smtp)]>
-3 email <sroberts@[10].[1]>
-   local-part <sroberts> domain <[10].[1]>
-
-Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo=> pcount 3
-1 email <sam@sam>
-   personal <Sam>
-   local-part <sam> domain <sam>
-   route <@[matrix (smtp)]>
-2 email <sroberts@[10].[1]>
-   local-part <sroberts> domain <[10].[1]>
-3 email <hi@lo>
-   local-part <hi> domain <lo>
-
-lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo=> pcount 4
-1 email <lo@hi>
-   local-part <lo> domain <hi>
-2 email <sam@sam>
-   personal <Sam>
-   local-part <sam> domain <sam>
-   route <@[matrix (smtp)]>
-3 email <sroberts@[10].[1]>
-   local-part <sroberts> domain <[10].[1]>
-4 email <hi@lo>
-   local-part <hi> domain <lo>
-
-Sam <@mail2.uniserve.com:sroberts@uniserve.com>=> pcount 1
-1 email <sroberts@uniserve.com>
-   personal <Sam>
-   local-part <sroberts> domain <uniserve.com>
-   route <@mail2.uniserve.com>
-
-< (hey) @ (hey, )smtp1.sympatico.ca, mail2.uniserve.com (hoo!):sroberts@uniserve.com>=> error MU_ERR_BAD_822_FORMAT
-
-hw@570.com (Hardware Support Account)=> pcount 1
-1 email <hw@570.com>
-   personal <Hardware Support Account>
-   local-part <hw> domain <570.com>
-
-list-ietf-wg-apps-drums@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)=> pcount 1
-1 email <list-ietf-wg-apps-drums@faerber.muc.de>
-   personal <=?ISO-8859-1?Q?Claus_F=E4rber?=>
-   local-part <list-ietf-wg-apps-drums> domain <faerber.muc.de>
-
-<mutt-dev@mutt.org>(mutt #369), guug-bugs-closed@guug.de (#369)=> pcount 2
-1 email <mutt-dev@mutt.org>
-   local-part <mutt-dev> domain <mutt.org>
-2 email <guug-bugs-closed@guug.de>
-   personal <#369>
-   local-part <guug-bugs-closed> domain <guug.de>
-
-"'Aernoudt Bottemanne'"	 <Aernoudt.Bottemanne@Informix.com>=> pcount 1
-1 email <Aernoudt.Bottemanne@Informix.com>
-   personal <'Aernoudt Bottemanne'>
-   local-part <Aernoudt.Bottemanne> domain <Informix.com>
-
-"'Haag, Ullrich - MBDC'" <Ullrich.Haag@MBDC.com>,=> pcount 1
-1 email <Ullrich.Haag@MBDC.com>
-   personal <'Haag, Ullrich - MBDC'>
-   local-part <Ullrich.Haag> domain <MBDC.com>
-
-"'Michael C. Ibarra'" <ibarra@hawk.com>, arl@q7.net, Al <arl@q7.net>=> pcount 3
-1 email <ibarra@hawk.com>
-   personal <'Michael C. Ibarra'>
-   local-part <ibarra> domain <hawk.com>
-2 email <arl@q7.net>
-   local-part <arl> domain <q7.net>
-3 email <arl@q7.net>
-   personal <Al>
-   local-part <arl> domain <q7.net>
-
-"'Sam Roberts'" <sam@cogent.ca>=> pcount 1
-1 email <sam@cogent.ca>
-   personal <'Sam Roberts'>
-   local-part <sam> domain <cogent.ca>
-
-"'paul@pitbull-productions.com'" <paul@pitbull-productions.com>,=> pcount 1
-1 email <paul@pitbull-productions.com>
-   personal <'paul@pitbull-productions.com'>
-   local-part <paul> domain <pitbull-productions.com>
-
-"'sam@cogent.ca'" <sam@cogent.ca>, "'sroberts@uniserve.com'"=> error MU_ERR_BAD_822_FORMAT
-
-"'sroberts\@certicom\.ca'" <sroberts@certicom.ca>=> pcount 1
-1 email <sroberts@certicom.ca>
-   personal <'sroberts@certicom.ca'>
-   local-part <sroberts> domain <certicom.ca>
-
-"=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=" <jcmarcos@datavoice.es>=> pcount 1
-1 email <jcmarcos@datavoice.es>
-   personal <=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=>
-   local-part <jcmarcos> domain <datavoice.es>
-
-"Christian Edward Gruber" <christian.edward.gruber@gmx.net>,=> pcount 1
-1 email <christian.edward.gruber@gmx.net>
-   personal <Christian Edward Gruber>
-   local-part <christian.edward.gruber> domain <gmx.net>
-
-"D. J. Bernstein" <"djb-   "@cr.yp.to>=> pcount 1
-1 email <"djb-   "@cr.yp.to>
-   personal <D. J. Bernstein>
-   local-part <djb-   > domain <cr.yp.to>
-
-"D. J. Bernstein" <djb@cr.yp.to>, drums@cs.utk.edu=> pcount 2
-1 email <djb@cr.yp.to>
-   personal <D. J. Bernstein>
-   local-part <djb> domain <cr.yp.to>
-2 email <drums@cs.utk.edu>
-   local-part <drums> domain <cs.utk.edu>
-
-"Dave Sill <de5-drums" <de5-drums@sws5.ctd.ornl.gov>=> pcount 1
-1 email <de5-drums@sws5.ctd.ornl.gov>
-   personal <Dave Sill <de5-drums>
-   local-part <de5-drums> domain <sws5.ctd.ornl.gov>
-
-"Dave \(work\) Baerg \(E-mail\)" <Dave.Baerg@SUMMedia.com>=> pcount 1
-1 email <Dave.Baerg@SUMMedia.com>
-   personal <Dave (work) Baerg (E-mail)>
-   local-part <Dave.Baerg> domain <SUMMedia.com>
-
-"Demian" <damient@wave.home.com>=> pcount 1
-1 email <damient@wave.home.com>
-   personal <Demian>
-   local-part <damient> domain <wave.home.com>
-
-"Detailed Revision/Update of Message Standards" <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
-   personal <Detailed Revision/Update of Message Standards>
-   local-part <drums> domain <cs.utk.edu>
-
-"Fred" <fprog@__nowhere__.users.sourceforge.net>=> pcount 1
-1 email <fprog@__nowhere__.users.sourceforge.net>
-   personal <Fred>
-   local-part <fprog> domain <__nowhere__.users.sourceforge.net>
-
-"Haag, Ullrich - MBDC" <Ullrich.Haag@MBDC.com>=> pcount 1
-1 email <Ullrich.Haag@MBDC.com>
-   personal <Haag, Ullrich - MBDC>
-   local-part <Ullrich.Haag> domain <MBDC.com>
-
-"Jacob Palme" <jpalme@dsv.su.se>, <drums@cs.utk.edu>=> pcount 2
-1 email <jpalme@dsv.su.se>
-   personal <Jacob Palme>
-   local-part <jpalme> domain <dsv.su.se>
-2 email <drums@cs.utk.edu>
-   local-part <drums> domain <cs.utk.edu>
-
-"Jakob 'sparky' Kaivo" <jkaivo@elijah.nodomainname.net>=> pcount 1
-1 email <jkaivo@elijah.nodomainname.net>
-   personal <Jakob 'sparky' Kaivo>
-   local-part <jkaivo> domain <elijah.nodomainname.net>
-
-"Lee R. Copp" <Lee.R.Copp@MichiganScientific.com>=> pcount 1
-1 email <Lee.R.Copp@MichiganScientific.com>
-   personal <Lee R. Copp>
-   local-part <Lee.R.Copp> domain <MichiganScientific.com>
-
-"Lionel Johnson" <ljohnson**nospam**@sterling1.com>=> pcount 1
-1 email <ljohnson**nospam**@sterling1.com>
-   personal <Lionel Johnson>
-   local-part <ljohnson**nospam**> domain <sterling1.com>
-
-"Martin \[Keso\] Keseg" <Martin.Keseg@slovakia.sun.com>=> pcount 1
-1 email <Martin.Keseg@slovakia.sun.com>
-   personal <Martin [Keso] Keseg>
-   local-part <Martin.Keseg> domain <slovakia.sun.com>
-
-#FIXME: there is no way to send } to the remote program...
-"]\{ristoph" <news2@kristoph.net>=> pcount 1
-1 email <news2@kristoph.net>
-   personal <]{ristoph>
-   local-part <news2> domain <kristoph.net>
-
-"fmartens-2000" <fmartens-2000@planet.nl>=> pcount 1
-1 email <fmartens-2000@planet.nl>
-   personal <fmartens-2000>
-   local-part <fmartens-2000> domain <planet.nl>
-
-"g'o'tz ohnesorge" <gohnesorge@lh-computertechnik.de>=> pcount 1
-1 email <gohnesorge@lh-computertechnik.de>
-   personal <g'o'tz ohnesorge>
-   local-part <gohnesorge> domain <lh-computertechnik.de>
-
-"gao jie" <jiegi@public.wh.hb.cn>=> pcount 1
-1 email <jiegi@public.wh.hb.cn>
-   personal <gao jie>
-   local-part <jiegi> domain <public.wh.hb.cn>
-
-"gnupg-devel@gnupg.org" <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>=> pcount 1
-1 email <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>
-   personal <gnupg-devel@gnupg.org>
-   local-part <gnupg-devel%gnupg.org> domain <f48.n48.z2.fidonet.org>
-
-"gpg-devel" <gnupg-devel@gnupg.org>=> pcount 1
-1 email <gnupg-devel@gnupg.org>
-   personal <gpg-devel>
-   local-part <gnupg-devel> domain <gnupg.org>
-
-"jigang" <jigang@jinglun.com.cn>=> pcount 1
-1 email <jigang@jinglun.com.cn>
-   personal <jigang>
-   local-part <jigang> domain <jinglun.com.cn>
-
-"misc@openbsd.org" <misc@openbsd.org>=> pcount 1
-1 email <misc@openbsd.org>
-   personal <misc@openbsd.org>
-   local-part <misc> domain <openbsd.org>
-
-"misc@openbsd.org" <misc@openbsd.org>, brian@Awfulhak.org=> pcount 2
-1 email <misc@openbsd.org>
-   personal <misc@openbsd.org>
-   local-part <misc> domain <openbsd.org>
-2 email <brian@Awfulhak.org>
-   local-part <brian> domain <Awfulhak.org>
-
-"mutt-dev @ mutt . orgThomas Roessler" <roessler@does-not-exist.org>=> pcount 1
-1 email <roessler@does-not-exist.org>
-   personal <mutt-dev @ mutt . orgThomas Roessler>
-   local-part <roessler> domain <does-not-exist.org>
-
-"zwk@f36.n480.z2.fidonet.org" <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>=> pcount 1
-1 email <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>
-   personal <zwk@f36.n480.z2.fidonet.org>
-   local-part <zwk%f36.n480.z2.fidonet.org> domain <f36.n480.z2.fidonet.org>
-
-'Dan Dall'Acqua' <ddallacqua@noetic.ab.ca>, 'Dave Shyong'=> error MU_ERR_BAD_822_FORMAT
-
-0xdeadbeef-request@petting-zoo.net=> pcount 1
-1 email <0xdeadbeef-request@petting-zoo.net>
-   local-part <0xdeadbeef-request> domain <petting-zoo.net>
-
-102023-00406421@cnxt19932218.conexant.com=> pcount 1
-1 email <102023-00406421@cnxt19932218.conexant.com>
-   local-part <102023-00406421> domain <cnxt19932218.conexant.com>
-
-218164.24.43@jobcontrolcenter.com=> pcount 1
-1 email <218164.24.43@jobcontrolcenter.com>
-   local-part <218164.24.43> domain <jobcontrolcenter.com>
-
-<0xdeadbeef-request@petting-zoo.net>=> pcount 1
-1 email <0xdeadbeef-request@petting-zoo.net>
-   local-part <0xdeadbeef-request> domain <petting-zoo.net>
-
-<>=> pcount 1
-1 email <>
-
-<Christia.Roberts@nrc.ca>=> pcount 1
-1 email <Christia.Roberts@nrc.ca>
-   local-part <Christia.Roberts> domain <nrc.ca>
-
-<Nick_Shelness@motorcity2.lotus.com>=> pcount 1
-1 email <Nick_Shelness@motorcity2.lotus.com>
-   local-part <Nick_Shelness> domain <motorcity2.lotus.com>
-
-<all: >=> error MU_ERR_BAD_822_FORMAT
-
-<fyi-admin@emyr.net>=> pcount 1
-1 email <fyi-admin@emyr.net>
-   local-part <fyi-admin> domain <emyr.net>
-
-<gary.stefanov@medtronic.com>, <HdeVisse@husky.ca>,=> pcount 2
-1 email <gary.stefanov@medtronic.com>
-   local-part <gary.stefanov> domain <medtronic.com>
-2 email <HdeVisse@husky.ca>
-   local-part <HdeVisse> domain <husky.ca>
-
-<gnu-pop-list@nodomainname.net>=> pcount 1
-1 email <gnu-pop-list@nodomainname.net>
-   local-part <gnu-pop-list> domain <nodomainname.net>
-
-<mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>=> pcount 1
-1 email <mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>
-   local-part <mutt-dev-owner-sroberts=uniserve.com> domain <ns.gbnet.net>
-
-=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?= <kolla@nvg.ntnu.no>=> pcount 1
-1 email <kolla@nvg.ntnu.no>
-   personal <=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?=>
-   local-part <kolla> domain <nvg.ntnu.no>
-
-=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>=> pcount 1
-1 email <paf@cisco.com>
-   personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
-   local-part <paf> domain <cisco.com>
-
-=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>,=> pcount 1
-1 email <paf@cisco.com>
-   personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
-   local-part <paf> domain <cisco.com>
-
-=?US-ASCII?Q?gary=5Fc?= <gary_c@cunningham-lee.com>=> pcount 1
-1 email <gary_c@cunningham-lee.com>
-   personal <=?US-ASCII?Q?gary=5Fc?=>
-   local-part <gary_c> domain <cunningham-lee.com>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>=> pcount 1
-1 email <0@pervalidus.net>
-   personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
-   local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>,=> pcount 1
-1 email <0@pervalidus.net>
-   personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
-   local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?= <0@pervalidus.net>=> pcount 1
-1 email <0@pervalidus.net>
-   personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?=>
-   local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?J=F8rgen_Thomsen?= <jth@postfix.jth.net>=> pcount 1
-1 email <jth@postfix.jth.net>
-   personal <=?iso-8859-1?Q?J=F8rgen_Thomsen?=>
-   local-part <jth> domain <postfix.jth.net>
-
-=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?= <jose@jaimedelamo.eu.org>=> pcount 1
-1 email <jose@jaimedelamo.eu.org>
-   personal <=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?=>
-   local-part <jose> domain <jaimedelamo.eu.org>
-
-=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@dna.fi>=> pcount 1
-1 email <Mikko.Hanninen@dna.fi>
-   personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
-   local-part <Mikko.Hanninen> domain <dna.fi>
-
-=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@iki.fi>=> pcount 1
-1 email <Mikko.Hanninen@iki.fi>
-   personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
-   local-part <Mikko.Hanninen> domain <iki.fi>
-
-=?iso-8859-1?Q?R=E9mi_Guyomarch?= <rguyom@321.net>=> pcount 1
-1 email <rguyom@321.net>
-   personal <=?iso-8859-1?Q?R=E9mi_Guyomarch?=>
-   local-part <rguyom> domain <321.net>
-
-=?iso-8859-1?Q?Ulf_M=F6ller?= <ulf@fitug.de>=> pcount 1
-1 email <ulf@fitug.de>
-   personal <=?iso-8859-1?Q?Ulf_M=F6ller?=>
-   local-part <ulf> domain <fitug.de>
-
-ANDREW MARTIN <amartin@ee.ryerson.ca>=> pcount 1
-1 email <amartin@ee.ryerson.ca>
-   personal <ANDREW MARTIN>
-   local-part <amartin> domain <ee.ryerson.ca>
-
-Abhay Ghaisas <abhay@sobolev.does-not-exist.org>, mutt-dev@mutt.org=> pcount 2
-1 email <abhay@sobolev.does-not-exist.org>
-   personal <Abhay Ghaisas>
-   local-part <abhay> domain <sobolev.does-not-exist.org>
-2 email <mutt-dev@mutt.org>
-   local-part <mutt-dev> domain <mutt.org>
-
-Brian Salter-Duke <b_duke@lacebark.ntu.edu.au>=> pcount 1
-1 email <b_duke@lacebark.ntu.edu.au>
-   personal <Brian Salter-Duke>
-   local-part <b_duke> domain <lacebark.ntu.edu.au>
-
-Catharine Shyong <shyong@t-iii.com>=> pcount 1
-1 email <shyong@t-iii.com>
-   personal <Catharine Shyong>
-   local-part <shyong> domain <t-iii.com>
-
-DRUMS-Last-Call:;=> error MU_ERR_EMPTY_ADDRESS
-
-Detailed Revision/Update of Message Standards <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
-   personal <Detailed Revision/Update of Message Standards>
-   local-part <drums> domain <cs.utk.edu>
-
-Eric Allman <eric+ietf@Sendmail.ORG>=> pcount 1
-1 email <eric+ietf@Sendmail.ORG>
-   personal <Eric Allman>
-   local-part <eric+ietf> domain <Sendmail.ORG>
-
-Gary <Gary@e-c-s-uk.com>=> pcount 1
-1 email <Gary@e-c-s-uk.com>
-   personal <Gary>
-   local-part <Gary> domain <e-c-s-uk.com>
-
-IETF working group on revision of mail standards <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
-   personal <IETF working group on revision of mail standards>
-   local-part <drums> domain <cs.utk.edu>
-
-IETF-Announce:;=> error MU_ERR_EMPTY_ADDRESS
-
-IETF-Announce:;, drums@cs.utk.edu=> pcount 1
-1 email <drums@cs.utk.edu>
-   local-part <drums> domain <cs.utk.edu>
-
-Jean-Baptiste Marchand <Jean-Baptiste.Marchand@epita.fr>=> pcount 1
-1 email <Jean-Baptiste.Marchand@epita.fr>
-   personal <Jean-Baptiste Marchand>
-   local-part <Jean-Baptiste.Marchand> domain <epita.fr>
-
-Jonathan Rozes <jrozes+969649116.89117462@vinton.com>=> pcount 1
-1 email <jrozes+969649116.89117462@vinton.com>
-   personal <Jonathan Rozes>
-   local-part <jrozes+969649116.89117462> domain <vinton.com>
-
-Jose "C." Garcia Sogo<jose@jaimedelamo.eu.org>=> pcount 1
-1 email <jose@jaimedelamo.eu.org>
-   personal <Jose C. Garcia Sogo>
-   local-part <jose> domain <jaimedelamo.eu.org>
-
-Marco d'Itri <md@Linux.IT>=> pcount 1
-1 email <md@Linux.IT>
-   personal <Marco d'Itri>
-   local-part <md> domain <Linux.IT>
-
-No_Reply-To@mapquest.com=> pcount 1
-1 email <No_Reply-To@mapquest.com>
-   local-part <No_Reply-To> domain <mapquest.com>
-
-OSULLIE@rte.ie, skidswam@hotmail.com, boot=> pcount 3
-1 email <OSULLIE@rte.ie>
-   local-part <OSULLIE> domain <rte.ie>
-2 email <skidswam@hotmail.com>
-   local-part <skidswam> domain <hotmail.com>
-3 email <boot@localhost>
-   local-part <boot>
-
-Paul Hoffman / IMC <phoffman@imc.org>=> pcount 1
-1 email <phoffman@imc.org>
-   personal <Paul Hoffman / IMC>
-   local-part <phoffman> domain <imc.org>
-
-Sam=> pcount 1
-1 email <Sam@localhost>
-   local-part <Sam>
-
-Sam Roberts <sam@cogent.ca>=> pcount 1
-1 email <sam@cogent.ca>
-   personal <Sam Roberts>
-   local-part <sam> domain <cogent.ca>
-
-Sam_Roberts/Certicom%Certicom@certicom.com=> pcount 1
-1 email <Sam_Roberts/Certicom%Certicom@certicom.com>
-   local-part <Sam_Roberts/Certicom%Certicom> domain <certicom.com>
-
-Thomas Roessler <roessler@does-not-exist.org>, 490@bugs.guug.de=> pcount 2
-1 email <roessler@does-not-exist.org>
-   personal <Thomas Roessler>
-   local-part <roessler> domain <does-not-exist.org>
-2 email <490@bugs.guug.de>
-   local-part <490> domain <bugs.guug.de>
-
-Thomas Roessler <roessler@does-not-exist.org>, g10@gnupg.org=> pcount 2
-1 email <roessler@does-not-exist.org>
-   personal <Thomas Roessler>
-   local-part <roessler> domain <does-not-exist.org>
-2 email <g10@gnupg.org>
-   local-part <g10> domain <gnupg.org>
-
-ddickey@ip-12-22-50-150.hqglobal.net=> pcount 1
-1 email <ddickey@ip-12-22-50-150.hqglobal.net>
-   local-part <ddickey> domain <ip-12-22-50-150.hqglobal.net>
-
-ktb <x.y.f@home.com>=> pcount 1
-1 email <x.y.f@home.com>
-   personal <ktb>
-   local-part <x.y.f> domain <home.com>
-
-mcaustin@eudoramail.com, aposner@usaid.gov, Kieran.O'Leary@anpost.ie,=> pcount 3
-1 email <mcaustin@eudoramail.com>
-   local-part <mcaustin> domain <eudoramail.com>
-2 email <aposner@usaid.gov>
-   local-part <aposner> domain <usaid.gov>
-3 email <Kieran.O'Leary@anpost.ie>
-   local-part <Kieran.O'Leary> domain <anpost.ie>
-
-rfunk@wks.uts.ohio-state.eduofflinemailer-bounce@dikke.penguin.nl=> error MU_ERR_BAD_822_FORMAT
-
-root=> pcount 1
-1 email <root@localhost>
-   local-part <root>
-
-srr <sam@localhost>=> error MU_ERR_BAD_822_FORMAT
-
-whom it may concern: ;;whom.it.may.concern: ;=> error MU_ERR_BAD_822_FORMAT
-
-whom it may concern: mutt-dev@mutt.org, mutt-users@mutt.org;=> pcount 2
-1 email <mutt-dev@mutt.org>
-   local-part <mutt-dev> domain <mutt.org>
-2 email <mutt-users@mutt.org>
-   local-part <mutt-users> domain <mutt.org>
-
-Sergey V. Poznyakoff <gray@gnu.org>=> pcount 1
-1 email <gray@gnu.org>
-   personal <Sergey V. Poznyakoff>
-   local-part <gray> domain <gnu.org>
-
-P. D. Q. Bach <bach@somewhere.org>=> pcount 1
-1 email <bach@somewhere.org>
-   personal <P. D. Q. Bach>
-   local-part <bach> domain <somewhere.org>
-
-"A bad quote\" <devnull@localhost>=> error MU_ERR_BAD_822_FORMAT
-
-# NOTE: This file must end with an empty line

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2005, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-1 2 3
-3: 1 2 3
-
-quoted\ space
-1: "quoted space"
-
-a "tab	character"
-2: a tab\tcharacter
-
-\157\143\164\141\154\40and\x20\x68\x65\x78
-1: "octal and hex"
-
-\157\143\164\141\154\40 and \x20\x68\x65\x78
-3: "octal " and " hex"
-
-A\x3-\48\39
-1: A\003-\0048\0039
-
-# FIXME: Tcl is not able to properly handle binary data, even with
-# fconfigure -binary, so I had to disable this test
-#message: ASCII upper part
-#×ÅÒÈÎÑÑ ÐÏÌÏ×ÉÎÁ ÔÁÂÌÉÃÙ
-#3: \327\305\322\310\316\321\321 \320\317\314\317\327\311\316\301 \324\301\302\314\311\303\331
-
-messed        up'quotations     ' in "a  single'" "command" lin"e
-6: messed "upquotations     " in "a  single'" command "lin\"e"
-
-'unbalanced "quote
-2: 'unbalanced "\"quote"
-
-unbalanced "quote
-2: unbalanced "\"quote"
-
-"
-1: "\""

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2006, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-
-=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu> => Success
-Keith Moore <moore@cs.utk.edu>
-
-=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk> => Success
-Keld J\370rn Simonsen <keld@dkuug.dk>
-
-=?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be> => Success
-Andr\351 Pirard <PIRARD@vm1.ulg.ac.be>
-
-=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= ... =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?= => Success
-If you can read this yo ... u understand the example.
-
-# Malformed input string: lacks trailing =. MU 0.6.90 hanged on it.
-=?koi8-r?B?RndkOiDSxcfJ09TSwcPJ0SDEz83FzsE?= => Success
-Fwd: \322\305\307\311\323\324\322\301\303
-
-# NOTE: This file must end with an empty line
-# EOF

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2006, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-\ckoi8-r
-\eB
-\o
--message 16-bytes string
-#Cyrillic: åÖÅÄÎÅ×ÎÙÊ ÏÔÞÅÔ
-\\345\326\305\304\316\305\327\316\331\312\040\317\324\336\305\324=> Success
-=?koi8-r?B?5dbFxM7F187ZyiDP1N7F1A==?=
-
-# NOTE: This file must end with an empty line
-# EOF

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-text/plain; less '%s'; needsterminal
-entry
-	typefield: text/plain
-	view-command: less '%s'
-	fields[1]: needsterminal
-
-text/html; gnome-help-browser '%s'; nametemplate=%s.html; test=test -n "$DISPLAY"
-entry
-	typefield: text/html
-	view-command: gnome-help-browser '%s'
-	fields[1]: nametemplate=%s.html
-	fields[2]: test=test -n "$DISPLAY"
-
-application/x-troff-man; /usr/bin/nroff -mandoc -Tlatin1; \
-copiousoutput; print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
-entry
-	typefield: application/x-troff-man
-	view-command: /usr/bin/nroff -mandoc -Tlatin1
-	fields[1]: copiousoutput
-	fields[2]: print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
-
-text/plain; shownonascii iso-8859-1 '%s'; description="Plain ASCII Text"; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
-	typefield: text/plain
-	view-command: shownonascii iso-8859-1 '%s'
-	fields[1]: description="Plain ASCII Text"
-	fields[2]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-text/richtext; shownonascii iso-8859-1 -e richtext -p '%s'; \
-description="Richtext"; copiousoutput; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
-	typefield: text/richtext
-	view-command: shownonascii iso-8859-1 -e richtext -p '%s'
-	fields[1]: description="Richtext"
-	fields[2]: copiousoutput
-	fields[3]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-text/enriched; shownonascii iso-8859-1 -e richtext -e -p '%s'; \
-description="Enriched Text"; \
-copiousoutput; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
-	typefield: text/enriched
-	view-command: shownonascii iso-8859-1 -e richtext -e -p '%s'
-	fields[1]: description="Enriched Text"
-	fields[2]: copiousoutput
-	fields[3]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-message/partial; showpartial '%s' %{id} %{number} %{total}; description="An incomplete message"
-entry
-	typefield: message/partial
-	view-command: showpartial '%s' %{id} %{number} %{total}
-	fields[1]: description="An incomplete message"
-
-message/external-body; showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}; needsterminal; description="A reference to data stored in an external location"; composetyped="extcompose '%s"'
-entry
-	typefield: message/external-body
-	view-command: showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}
-	fields[1]: needsterminal
-	fields[2]: description="A reference to data stored in an external location"
-	fields[3]: composetyped="extcompose '%s"'
-
-application/x-dvi; /usr/bin/xdvi '%s'; test=test -n "$DISPLAY"; description=TeX DVI file; nametemplate=%s.dvi
-entry
-	typefield: application/x-dvi
-	view-command: /usr/bin/xdvi '%s'
-	fields[1]: test=test -n "$DISPLAY"
-	fields[2]: description=TeX DVI file
-	fields[3]: nametemplate=%s.dvi
-
-text/plain; more '%s'; needsterminal
-entry
-	typefield: text/plain
-	view-command: more '%s'
-	fields[1]: needsterminal
-
-text/html; /usr/bin/links '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/links '%s'
-	fields[1]: needsterminal
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/richtext; richtext '%s'; description="Richtext"; copiousoutput
-entry
-	typefield: text/richtext
-	view-command: richtext '%s'
-	fields[1]: description="Richtext"
-	fields[2]: copiousoutput
-
-text/enriched; richtext -e '%s'; description="Enriched Text"; copiousoutput
-entry
-	typefield: text/enriched
-	view-command: richtext -e '%s'
-	fields[1]: description="Enriched Text"
-	fields[2]: copiousoutput
-
-text/html; /usr/bin/w3m -T text/html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/w3m -T text/html '%s'
-	fields[1]: needsterminal
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/links -dump '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/links -dump '%s'
-	fields[1]: copiousoutput
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/lynx -force_html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/lynx -force_html '%s'
-	fields[1]: needsterminal
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/w3m -dump -T text/html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/w3m -dump -T text/html '%s'
-	fields[1]: copiousoutput
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/html2text '%s'; copiousoutput; description=HTML Text
-entry
-	typefield: text/html
-	view-command: /usr/bin/html2text '%s'
-	fields[1]: copiousoutput
-	fields[2]: description=HTML Text
-
-text/html; /usr/bin/lynx -dump -force_html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
-	typefield: text/html
-	view-command: /usr/bin/lynx -dump -force_html '%s'
-	fields[1]: copiousoutput
-	fields[2]: description=HTML Text
-	fields[3]: nametemplate=%s.html
-
-text/*; less '%s'; needsterminal
-entry
-	typefield: text/*
-	view-command: less '%s'
-	fields[1]: needsterminal
-
-text/*; more '%s'; needsterminal
-entry
-	typefield: text/*
-	view-command: more '%s'
-	fields[1]: needsterminal
-
-application/x-debian-package; /usr/lib/mime/debian-view '%s'; \
-needsterminal; description=Debian GNU/Linux Package; \
-nametemplate=%s.deb
-entry
-	typefield: application/x-debian-package
-	view-command: /usr/lib/mime/debian-view '%s'
-	fields[1]: needsterminal
-	fields[2]: description=Debian GNU/Linux Package
-	fields[3]: nametemplate=%s.deb
-
-audio/basic; /usr/lib/mime/playaudio '%s'; description=Basic uLaw Audio; \
-nametemplate=%s.au
-entry
-	typefield: audio/basic
-	view-command: /usr/lib/mime/playaudio '%s'
-	fields[1]: description=Basic uLaw Audio
-	fields[2]: nametemplate=%s.au
-
-# End of Mailcap

-## Process this file with GNU Automake to create Makefile.in
-
-##   Copyright (C) 2002, 2003, 2007, 2010 Free Software Foundation, Inc.
-##
-##   GNU Mailutils 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 3, 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.  51 Franklin Street, Fifth Floor, Boston, MA
-##   02110-1301 USA
-
-AUTOMAKE_OPTIONS = dejagnu
-DEJATOOL = mailbox
-RUNTESTFLAGS = 
-CLEANFILES = *.log
-test_dirs = lib mailbox
-EXTRA_DIST = Addrs Argcv Mailcap Mime Urls Encode Decode Encode2047 Decode2047
-
-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 top_builddir `cd $(top_builddir); 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,top_builddir) `cd $(top_builddir); 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

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2008 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 
-#
-# NOTE: Expected lines must be indented with exactly one tab character.
-
-scheme: => SUCCESS
-	scheme <scheme>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <>
-
-scheme:/absolute/path => SUCCESS
-	scheme <scheme>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </absolute/path>
-
-scheme:relative/path => SUCCESS
-	scheme <scheme>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <relative/path>
-
-scheme:///absolute/path => SUCCESS
-	scheme <scheme>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </absolute/path>
-
-scheme://%75%73%65%72:%70%61%73%73@%68%6f%73%74 => SUCCESS
-	scheme <scheme>
-	user <user>
-	passwd <pass>
-	auth <>
-	host <host>
-	port 0
-	path <>
-
-ftp://user:pass@host//a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <pass>
-	auth <>
-	host <host>
-	port 0
-	path </a/path>
-
-ftp://:pass@host//a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <pass>
-	auth <>
-	host <host>
-	port 0
-	path </a/path>
-
-ftp://user:@host//a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <>
-	auth <>
-	host <host>
-	port 0
-	path </a/path>
-
-ftp://user:pass@//a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <pass>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://user:@//a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://:@host//a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <host>
-	port 0
-	path </a/path>
-
-ftp://:pass@//a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <pass>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://:@//a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://://a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://@//a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp:/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-ftp://user:pass@host/a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <pass>
-	auth <>
-	host <host>
-	port 0
-	path <a/path>
-
-ftp://:pass@host/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <pass>
-	auth <>
-	host <host>
-	port 0
-	path <a/path>
-
-ftp://user:@host/a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <>
-	auth <>
-	host <host>
-	port 0
-	path <a/path>
-
-ftp://user:pass@/a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <pass>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp://user:@/a/path => SUCCESS
-	scheme <ftp>
-	user <user>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp://:@host/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <host>
-	port 0
-	path <a/path>
-
-ftp://:pass@/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <pass>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp://:@/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp://:/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp://@/a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path <a/path>
-
-ftp:///a/path => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </a/path>
-
-pop://pop.example.net => SUCCESS
-	scheme <pop>
-	user <>
-	passwd <>
-	auth <>
-	host <pop.example.net>
-	port 0
-	path <>
-
-pop://user@pop.example.net => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <>
-	auth <>
-	host <pop.example.net>
-	port 0
-	path <>
-
-pop://user:passwd@pop.example.net => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <pop.example.net>
-	port 0
-	path <>
-
-pop://user;auth=*@pop.example.net => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <>
-	auth <*>
-	host <pop.example.net>
-	port 0
-	path <>
-
-pop://pop.example.net:111 => SUCCESS
-	scheme <pop>
-	user <>
-	passwd <>
-	auth <>
-	host <pop.example.net>
-	port 111
-	path <>
-
-pop://user@pop.example.net:111 => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <>
-	auth <>
-	host <pop.example.net>
-	port 111
-	path <>
-
-pop://user:passwd@pop.example.net:111 => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <pop.example.net>
-	port 111
-	path <>
-
-pop://user;auth=*@pop.example.net:111 => SUCCESS
-	scheme <pop>
-	user <user>
-	passwd <>
-	auth <*>
-	host <pop.example.net>
-	port 111
-	path <>
-
-imap://imap.example.net => SUCCESS
-	scheme <imap>
-	user <>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <>
-
-imap://user@imap.example.net => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <>
-
-imap://user:passwd@imap.example.net => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <>
-
-imap://user;auth=*@imap.example.net => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 0
-	path <>
-
-imap://imap.example.net:111 => SUCCESS
-	scheme <imap>
-	user <>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <>
-
-imap://user@imap.example.net:111 => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <>
-
-imap://user:passwd@imap.example.net:111 => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <>
-
-imap://user;auth=*@imap.example.net:111 => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 111
-	path <>
-
-imap://imap.example.net/mbox => SUCCESS
-	scheme <imap>
-	user <>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <mbox>
-
-imap://user@imap.example.net/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <mbox>
-
-imap://user:passwd@imap.example.net/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <mbox>
-
-imap://user;auth=*@imap.example.net/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 0
-	path <mbox>
-
-imap://imap.example.net:111/mbox => SUCCESS
-	scheme <imap>
-	user <>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <mbox>
-
-imap://user@imap.example.net:111/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <mbox>
-
-imap://user:passwd@imap.example.net:111/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <mbox>
-
-imap://user;auth=*@imap.example.net:111/mbox => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 111
-	path <mbox>
-
-imap://imap.example.net/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <imap.example.net/mbox/user>
-	passwd <>
-	auth <>
-	host <host>
-	port 0
-	path <>
-
-imap://user@imap.example.net/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <mbox/user@host>
-
-imap://user:passwd@imap.example.net/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 0
-	path <mbox/user@host>
-
-imap://user;auth=*@imap.example.net/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 0
-	path <mbox/user@host>
-
-imap://imap.example.net:111/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <imap.example.net>
-	passwd <111/mbox/user>
-	auth <>
-	host <host>
-	port 0
-	path <>
-
-imap://user@imap.example.net:111/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <mbox/user@host>
-
-imap://user:passwd@imap.example.net:111/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <passwd>
-	auth <>
-	host <imap.example.net>
-	port 111
-	path <mbox/user@host>
-
-imap://user;auth=*@imap.example.net:111/mbox/user@host => SUCCESS
-	scheme <imap>
-	user <user>
-	passwd <>
-	auth <*>
-	host <imap.example.net>
-	port 111
-	path <mbox/user@host>
-
-ftp://ftp.example.org/mbox/user%40host => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <ftp.example.org>
-	port 0
-	path <mbox/user@host>
-
-ftp://ftp.example.org:111/mbox/user%40host => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <ftp.example.org>
-	port 111
-	path <mbox/user@host>
-
-ftp://ftp.example.org:111/mbox/user%40host;type=pass => SUCCESS
-	scheme <ftp>
-	user <>
-	passwd <>
-	auth <>
-	host <ftp.example.org>
-	port 111
-	path <mbox/user@host>
-	param[0] <type=pass>
-
-mbox:/var/spool/mail;type=index;param=2;user=gray => SUCCESS
-	scheme <mbox>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </var/spool/mail>
-	param[0] <type=index>
-	param[1] <param=2>
-	param[2] <user=gray>
-
-mbox:///var/spool/mail;type=index;param=2;user=gray => SUCCESS
-	scheme <mbox>
-	user <>
-	passwd <>
-	auth <>
-	host <>
-	port 0
-	path </var/spool/mail>
-	param[0] <type=index>
-	param[1] <param=2>
-	param[2] <user=gray>
-
-http:///gnu.org.ua/home/gray?prog&arg1&arg2
-        scheme <http>
-        user <>
-        passwd <>
-        auth <>
-        host <gnu.org.ua>
-        port 0
-        path <home/gray>
-        query[0] <prog>
-        query[1] <arg1>
-        query[2] <arg2>
-
-http:///gnu.org.ua/home/gray;foo=bar;baz=qux?prog&arg%201&arg%202
-        scheme <http>
-        user <>
-        passwd <>
-        auth <>
-        host <gnu.org.ua>
-        port 0
-        path <home/gray>
-	param[0] <foo=bar>
-	param[1] <baz=qux>
-        query[0] <prog>
-        query[1] <arg 1>
-        query[2] <arg 2>
-
-# NOTE: This file must end with an empty line

-mailbox.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2009, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-source $top_srcdir/testsuite/lib/mailutils.exp
-
-mu_init 
-
-proc mailbox_run {args} {
-    global verbose
-    global expect_out
-
-    set sw ""
-    for {set i 0} {$i < [llength $args]} {incr i} {
-	set a [lindex $args $i]
-	if {"$a" == "-mail-spool"} {
-	    if [info exists host_board] {
-		if [board_info $host_board exists top_srcdir] {
-		    append sw "--set mailbox.mail-spool=\"'[board_info $host_board top_srcdir]/mail/testsuite/spool'\""
-		}
-	    }
-	    if {![info exists init_spool]} {
-		set init_spool 1
-	    }
-	} elseif {"$a" == "-reuse-spool"} {
-	    set init_spool 0
-	} else {
-	    break
-	}
-    }
-
-    if [info exists init_spool] {
-	mu_prepare_spools
-    }
-    
-    set args "[lrange $args $i end] $sw"
-
-    verbose "Spawning $args"
-
-    set res [remote_spawn host $args]
-    if { $res < 0 || $res == "" } {
-	perror "Spawning $args failed."
-	return 1;
-    }
-
-    return 0
-}
-
-proc mailbox_send { string } {
-    return [mu_send "$string"]
-}
-
-# mailbox_test [-message MESSAGE][-default (FAIL|XFAIL)]
-#            COMMAND [-pattern PATTERN-LIST][PATTERN...]
-# COMMAND   - Command to send.
-# PATTERN   - Sequence to expect in return. 
-# MESSAGE   - [optional] message to output
-proc mailbox_test { args } {
-    global verbose
-    global suppress_flag;
-    upvar timeout timeout
-
-    set default ""
-    set message ""
-    for {set i 0} {$i < [llength $args]} {incr i} {
-	set a [lindex $args $i]
-	if {"$a" == "-default"} {
-	    incr i
-	    set default [lindex $args $i]
-	} elseif {"$a" == "-message"} {
-	    incr i
-	    set message [lindex $args $i]
-	} elseif {"$a" == "-pattern"} {
-	    incr i
-	    set pattern [lindex $args $i]
-	} else {
-	    set args [lrange $args $i end]
-	    break
-	}
-    }
-    
-    if {"$message" == ""}  {
-	set message [lindex $args 0]
-    }
-
-    if $verbose>2 then {
-	send_user "Message is \"$message\"\n"
-    }
-    set command [lindex $args 0]
-    if {[llength $args] >= 2} {
-	set pattern [lrange $args 1 end]
-    }
-
-    if [info exists pattern] {
-	set result [mu_test $command $pattern]
-    } else {
-	set result [mu_test $command]
-    }
-
-    if {$result == 0} {
-	pass "$message"
-    } elseif {$result == 1} {
-	if { "$default" == "" || "$default" != "FAIL" } {
-	    fail "$message"
-	} else {
-	    xfail "$message"
-	    set result 0
-	}
-    } elseif {$result == -2} {
-	fail "$message (timeout)"
-    } elseif {$result == -3} {
-	fail "$message (eof)"
-    } else {
-	fail "$message"
-    }
-    return $result
-}
-
-proc mailbox_prog_start {cmd} {
-    global verbose
-    global MU_TOOL
-    global MU_TOOL_FLAGS
-    global mailbox_prog_prompt
-    global expect_out
-    global mailbox_spawn_id
-    
-    verbose "Spawning $cmd"
-
-    set mailbox_spawn_id [remote_spawn host $cmd]
-    if { $mailbox_spawn_id < 0 || $mailbox_spawn_id == "" } {
-	perror "Spawning $cmd failed."
-	return 1;
-    }
-
-    mu_expect 360 {
-	-re "\[\r\n\]?${mailbox_prog_prompt}$" {
-	    verbose "program initialized."
-	}
-	default {
-	    perror "program not initialized"
-            return 1
-	}
-    }
-    return 0
-}
-
-proc mailbox_prog_send { string } {
-    return [mu_send "$string"]
-}
-
-proc mailbox_prog_command { cmd } {
-    return [mu_command $cmd]
-}
-
-proc mailbox_prog_stop {} {
-    verbose "Stopping program"
-    remote_close host
-    
-}
-
-# mailbox_prog_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt]
-#                    COMMAND PATTERN [PATTERN...]
-# COMMAND   - Command to send.
-# PATTERN   - Sequence to expect in return. 
-# MESSAGE   - [optional] message to output
-proc mailbox_prog_test { args } {
-    global verbose
-    global mailbox_prog_prompt
-    global suppress_flag;
-    upvar timeout timeout
-
-    set default ""
-    set message ""
-    set wait_for_prompt 1
-    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" == "-noprompt"} {
-	    set wait_for_prompt 0
-	} else {
-	    set args [lrange $args $i end]
-	    break
-	}
-    }
-    
-    if {"$message" == ""}  {
-	set message [lindex $args 0]
-    }
-
-    if $verbose>2 then {
-	send_user "Message is \"$message\"\n"
-    }
-    set command [lindex $args 0]
-    set pattern [lrange $args 1 end]
-    set result [mu_test $command $pattern]
-    if {$wait_for_prompt} {
-	mu_expect 30 {
-		-re "\[\r\n\]?${mailbox_prog_prompt}$" {}
-		default {
-			perror "prog not initialized"
-			return 1
-		}
-	}
-    }
-
-    if {$result == 0} {
-	pass "$message"
-    } elseif {$result == 1} {
-	if { "$default" == "" || "$default" != "FAIL" } {
-	    fail "$message"
-	} else {
-	    xfail "$message"
-	    set result 0
-	}
-    } elseif {$result == -2} {
-	fail "$message (timeout)"
-    } elseif {$result == -3} {
-	fail "$message (eof)"
-    } else {
-	fail "$message"
-    }
-    return $result
-}

-address.exp
-argcv.exp
-base64.exp
-decode2047.exp
-encode2047.exp
-list.exp
-mailcap.exp
-mime.exp
-url.exp 

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mailbox_run ${top_builddir}/examples/addr
-
-set chan [open ${srcdir}/Addrs r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	"^[^ \t].*=>.*" {
-	    regexp "(.*)=>.*" $line dummy command
-	    set pattern [list $line]
-	}
-	"^\$"    {
-	    if {$command != ""} {
-		mailbox_test -pattern $pattern $command
-		set command ""
-	    }
-	}
-	default {
-	    if [info exist pattern] {
-		set pattern [concat $pattern [list $line]]
-	    }
-	}
-    }
-}
-
-close $chan
-
-# end of address.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2005, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mailbox_run ${top_builddir}/examples/argcv
-
-set chan [open ${srcdir}/Argcv r]
-
-set command ""
-set message ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	"^[ \t]*\$" { }
-	"message:" {
-	    regexp "message:\[ \t\]*(.*)" $line dummy message
-	}
-	default {
-	    if {$command == ""} {
-		set command $line
-	    } else {
-		if {$message != ""} {
-		    mailbox_test -message $message -pattern [list $line] $command
-		    set message ""
-		} else {
-		    mailbox_test -pattern [list $line] $command
-		}
-		set command ""
-	    }
-	}
-    }
-}
-
-if {$command != ""} {
-    fail "Malformed input file ${srcdir}/Argcv"
-}
-
-close $chan
-
-# end of argcv.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-set MU_TOOL ${top_builddir}/examples/base64
-set MU_TOOL_FLAGS ""
-
-mu_exec -message "encode" -arg -i${srcdir}/Encode \
-"AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4"\
-"OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3Bx"\
-"cnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmq"\
-"q6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj"\
-"5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/w=="
-
-## Expect chokes on binary data, so let's switch base64 to printable
-## octal output.
-## The -l0 option ensures that the output is not split by inserting
-## additional newlines.
-mu_exec -message "decode" -arg -i${srcdir}/Decode -arg -dpl0 \
-"\\000\\001\\002\\003\\004\\005\\006\\007\\010\\011\\012\\013\\014\\015\\016\\017\\020\\021\\022\\023\\024\\025\\026\\027\\030\\031\\032\\033\\034\\035\\036\\037 !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\\177\\200\\201\\202\\203\\204\\205\\206\\207\\210\\211\\212\\213\\214\\215\\216\\217\\220\\221\\222\\223\\224\\225\\226\\227\\230\\231\\232\\233\\234\\235\\236\\237\\240\\241\\242\\243\\244\\245\\246\\247\\250\\251\\252\\253\\254\\255\\256\\257\\260\\261\\262\\263\\264\\265\\266\\267\\270\\271\\272\\273\\274\\275\\276\\277\\300\\301\\302\\303\\304\\305\\306\\307\\310\\311\\312\\313\\314\\315\\316\\317\\320\\321\\322\\323\\324\\325\\326\\327\\330\\331\\332\\333\\334\\335\\336\\337\\340\\341\\342\\343\\344\\345\\346\\347\\350\\351\\352\\353\\354\\355\\356\\357\\360\\361\\362\\363\\364\\365\\366\\367\\370\\371\\372\\373\\374\\375\\376\\377"
-
-# End of base64.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2006, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mailbox_run ${top_builddir}/examples/decode2047 -p
-
-set chan [open ${srcdir}/Decode2047 r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	"^[^ \t].*=>.*" {
-	    regexp "(.*)=>.*" $line dummy command
-	    set pattern [list $line]
-	}
-	"^\$"    {
-	    if {$command != ""} {
-		verbose "COMMAND $command"
-		verbose "PATTERN $pattern"
-		mailbox_test -pattern $pattern $command
-		set command ""
-	    }
-	}
-	default {
-	    if [info exist pattern] {
-		set pattern [concat $pattern [list $line]]
-	    }
-	}
-    }
-}
-
-close $chan
-
-# end of decode2047.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2006, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mailbox_run ${top_builddir}/examples/encode2047
-
-set chan [open ${srcdir}/Encode2047 r]
-
-set command ""
-set message ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	"-message.*" {
-	    regexp -- "-message (.*)" $line dummy message
-	}
-	"^\\\\\[^\\\\\]" {
-	    mu_command $line
-	}
-	"^[^ \t].*=>.*" {
-	    regexp "(.*)=>.*" $line dummy command
-	    set pattern [list $line]
-	}
-	"^\$"    {
-	    if {$command != ""} {
-		verbose "COMMAND $command"
-		verbose "PATTERN $pattern"
-                if {$message != ""} {
-		  mailbox_test -message $message -pattern $pattern $command
-                } else {
-		  mailbox_test -pattern $pattern $command
-                }
-		set command ""
-		set message ""
-	    }
-	}
-	default {
-	    if [info exist pattern] {
-		set pattern [concat $pattern [list $line]]
-	    }
-	}
-    }
-}
-
-close $chan
-
-# end of encode2037.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2005, 2007, 2008, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-set current_text [list "NULL" "NULL" "NULL" "NULL"]
-set current_iter 0
-
-proc make_promt {} {
-    global current_iter
-    global current_text
-    global mailbox_prog_prompt
-    
-    set mailbox_prog_prompt "${current_iter}:\\([lindex $current_text $current_iter]\\)> "
-}
-
-proc prompt_text {text} {
-    global current_iter
-    global current_text
-
-    set current_text [lreplace $current_text $current_iter $current_iter $text]
-    make_promt 
-}
-	
-proc prompt_iterator {iter} {
-    global current_iter
-
-    set current_iter $iter
-    make_promt
-}
-
-prompt_iterator 0
-prompt_text "NULL"
-
-mailbox_prog_start "${top_builddir}/examples/listop"
-
-mailbox_prog_command "add en to tre fire fem"
-mailbox_prog_test "print" \
-        "# items: 5" \
-	"en" \
-	"to" \
-	"tre" \
-	"fire" \
-	"fem"
-
-prompt_text "en"
-mailbox_prog_test "next"
-
-prompt_text "tre"
-mailbox_prog_test "next 2"
-
-prompt_iterator 1
-prompt_text "en"
-mailbox_prog_test "iter 1"
-
-prompt_text "to"
-mailbox_prog_test "find to"
-
-mailbox_prog_test "del tre fire"
-
-prompt_text "fem"
-mailbox_prog_test "next"
-
-prompt_iterator 0
-prompt_text "fem"
-mailbox_prog_test "iter 0"
-mailbox_prog_test "print" \
-        "# items: 3" \
-	"en" \
-	"to" \
-	"fem"
-
-mailbox_prog_command "prep jeden dwa trzy cztery"
-
-mailbox_prog_test "print" \
-        "# items: 7" \
-	"cztery" \
-	"trzy" \
-	"dwa" \
-	"jeden" \
-	"en" \
-	"to" \
-	"fem"
-
-prompt_text "cztery"
-mailbox_prog_test "first"
-
-prompt_text "trzy"
-mailbox_prog_test "del cztery"
-
-prompt_text "3"
-mailbox_prog_test "repl trzy 3"
-
-prompt_iterator 1
-mailbox_prog_test "iter 1"
-
-prompt_text "3"
-mailbox_prog_test "next 2"
-
-mailbox_prog_command "ins jeden un"
-mailbox_prog_test "print" \
-        "# items: 7" \
-	"3" \
-	"dwa" \
-	"jeden" \
-        "un" \
-	"en" \
-	"to" \
-	"fem"
-
-mailbox_prog_command "ins before jeden zero"
-mailbox_prog_test "print" \
-        "# items: 8" \
-	"3" \
-	"dwa" \
-        "zero" \
-	"jeden" \
-        "un" \
-	"en" \
-	"to" \
-	"fem"
-
-prompt_text "un"
-mailbox_prog_test "find un"
-
-mailbox_prog_command "ins before un cero"
-mailbox_prog_command "ins un dos"
-
-mailbox_prog_test "print" \
-        "# items: 10" \
-	"3" \
-	"dwa" \
-        "zero" \
-	"jeden" \
-        "cero" \
-        "un" \
-        "dos" \
-	"en" \
-	"to" \
-	"fem"
-
-mailbox_prog_command "ins before 3 1"
-mailbox_prog_test "print" \
-        "# items: 11" \
-        "1" \
-	"3" \
-	"dwa" \
-        "zero" \
-	"jeden" \
-        "cero" \
-        "un" \
-        "dos" \
-	"en" \
-	"to" \
-	"fem"
-
-mailbox_prog_command "ins before 3 2"
-mailbox_prog_test "print" \
-        "# items: 12" \
-        "1" \
-        "2" \
-	"3" \
-	"dwa" \
-        "zero" \
-	"jeden" \
-        "cero" \
-        "un" \
-        "dos" \
-	"en" \
- 	"to" \
-	"fem"
-
-mailbox_prog_command "ins 3 4 5 6"
-mailbox_prog_test "print" \
-    "# items: 15" \
-    "1" \
-    "2" \
-    "3" \
-    "4" \
-    "5" \
-    "6" \
-    "dwa" \
-    "zero" \
-    "jeden" \
-    "cero" \
-    "un" \
-    "dos" \
-    "en" \
-    "to" \
-    "fem"
-
-mailbox_prog_command "ins before dwa zero jeden"
-mailbox_prog_test "print" \
-    "# items: 17" \
-    "1" \
-    "2" \
-    "3" \
-    "4" \
-    "5" \
-    "6" \
-    "zero" \
-    "jeden" \
-    "dwa" \
-    "zero" \
-    "jeden" \
-    "cero" \
-    "un" \
-    "dos" \
-    "en" \
-    "to" \
-    "fem"
-
-mailbox_prog_test "ictl tell" "12"
-
-prompt_text "dos"
-mailbox_prog_test "ictl del"
-
-prompt_text "dos"
-mailbox_prog_test "next"
-
-mailbox_prog_test "print" \
-    "# items: 16" \
-    "1" \
-    "2" \
-    "3" \
-    "4" \
-    "5" \
-    "6" \
-    "zero" \
-    "jeden" \
-    "dwa" \
-    "zero" \
-    "jeden" \
-    "cero" \
-    "dos" \
-    "en" \
-    "to" \
-    "fem"
-
-mailbox_prog_test "ictl ins seis"
-
-mailbox_prog_test "print" \
-    "# items: 17" \
-    "1" \
-    "2" \
-    "3" \
-    "4" \
-    "5" \
-    "6" \
-    "zero" \
-    "jeden" \
-    "dwa" \
-    "zero" \
-    "jeden" \
-    "cero" \
-    "dos" \
-    "seis" \
-    "en" \
-    "to" \
-    "fem"
-
-mailbox_prog_test "ictl ins tres quatro cinco"
-
-mailbox_prog_test "print" \
-    "# items: 20" \
-    "1" \
-    "2" \
-    "3" \
-    "4" \
-    "5" \
-    "6" \
-    "zero" \
-    "jeden" \
-    "dwa" \
-    "zero" \
-    "jeden" \
-    "cero" \
-    "dos" \
-    "tres" \
-    "quatro" \
-    "cinco" \
-    "seis" \
-    "en" \
-    "to" \
-    "fem"
-
-prompt_text "tres"
-mailbox_prog_test "next"
-
-mailbox_prog_test "ictl dir" "forwards"
-
-mailbox_prog_test "ictl dir backwards"
-
-prompt_text "dos"
-mailbox_prog_test "next"
-
-prompt_text "dwa"
-mailbox_prog_test "next 4"
-
-prompt_text "jeden"
-mailbox_prog_test "ictl del"
-
-mailbox_prog_test "next"
-
-prompt_text "zero"
-mailbox_prog_test "next"
-
-mailbox_prog_test "ictl dir forwards"
-
-prompt_text "jeden"
-mailbox_prog_test "next"
-
-mailbox_prog_send "quit"
-mailbox_prog_stop
-
-# End of list.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mu_prepare_spools
-
-set mailcapfile ${MU_DATA_DIR}/mailcap
-set chan [open ${srcdir}/Mailcap r]
-set outchan [open "$mailcapfile" w]
-
-set command ""
-set state 0
-set entry 0
-set pattern [list]
-
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    if {$state == 0} {
-	switch -regexp -- "$line" {
-	    "^#.*" { }
-	    "^entry" {
-		set state 1
-		incr entry
-		lappend pattern "entry\[${entry}\]"
-	    }
-	    default {
-		puts $outchan $line
-	    }
-	}
-    } else {
-	switch -regexp -- "$line" {
-	    "^#.*" { }
-	    "^\$"  {
-		lappend pattern ""
-		set state 0
-	    }
-	    default { 
-		lappend pattern $line
-	    }
-	}
-    }
-}
-
-if {$state == 1} {
-    lappend pattern ""
-}
-
-close $outchan
-close $chan
-
-set MU_TOOL ${top_builddir}/examples/mailcap
-set MU_TOOL_FLAGS ""
-
-verbose "INVOKE $pattern"
-eval mu_exec -message "mailcap" -arg "$mailcapfile" $pattern
-
-# end of mailcap.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-set MU_TOOL "${top_builddir}/examples/mimetest"
-set MU_TOOL_FLAGS "-i 0 -p $MU_SPOOL_DIR/mbox1"
-
-mu_prepare_spools
-
-set chan [open ${srcdir}/Mime r]
-
-set pattern [list]
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	default { set pattern [concat $pattern [list $line]] }
-    }
-}
-
-mu_exec -retcode 0 -message "MIME" -pattern $pattern 
-
-close $chan
-
-# end of mime.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mailbox_run ${top_builddir}/examples/url-parse
-
-set chan [open ${srcdir}/Urls r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
-    verbose "LINE: $line"
-    switch -regexp -- "$line" {
-	"^#.*" { }
-	"^[^ \t].*=>.*" {
-	    regexp "(.*\[^ \t\])\[ \t\]*=>.*" $line dummy command
-	    verbose "COMMAND: \"$command\""
-	    set pattern [list $line]
-	}
-	"^\$"    {
-	    if {$command != ""} {
-		mailbox_test -pattern $pattern $command
-		set command ""
-	    }
-	}
-	default {
-	    set pattern [concat $pattern [list $line]]
-	}
-    }
-}
-
-close $chan
-
-# end of url.exp

@@ -23,7 +23,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
 ## ------------ ##
 ## ------------ ##
 
 
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
-	{                                      \
+	$(AM_V_GEN) {                                      \
 	  echo '# Signature of the current package.'; \
 	  echo '# Signature of the current package.'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \

@@ -16,7 +16,6 @@
 # This file is part of Mailfromd testsuite. 
 # This file is part of Mailfromd testsuite. 
 
 
 # Require a reasonably recent autotest.
 # Require a reasonably recent autotest.
-m4_version_prereq([2.52g])
 m4_include([testsuite.inc])
 m4_include([testsuite.inc])
 
 
 dnl ------------------------------------------------------------
 dnl ------------------------------------------------------------

@@ -24,7 +24,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
 ## ------------ ##
 ## ------------ ##
 
 
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
 $(srcdir)/package.m4: $(top_srcdir)/configure.ac
-	{                                      \
+	$(AM_V_GEN) {                                      \
 	  echo '# Signature of the current package.'; \
 	  echo '# Signature of the current package.'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \
 	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \

@@ -15,8 +15,7 @@
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # This file is part of Mailfromd testsuite. 
 # This file is part of Mailfromd testsuite. 
 
 
-# Require a reasonably recent autotest.
-m4_version_prereq([2.52g])
+m4_include([testsuite.inc])
 
 
 dnl ------------------------------------------------------------
 dnl ------------------------------------------------------------
 dnl testcompile(SCRIPT) -- test compilation of the Sieve SCRIPT
 dnl testcompile(SCRIPT) -- test compilation of the Sieve SCRIPT

@@ -15,6 +15,6 @@
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # This file is part of Mailfromd testsuite. 
 # This file is part of Mailfromd testsuite. 
 
 
-m4_include([testsuite.inc])
+dnl m4_include([testsuite.inc])
 
 
 MUT_VERSION(sieve)
 MUT_VERSION(sieve)

@@ -15,6 +15,11 @@
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
 # This file is part of Mailfromd testsuite. 
 # This file is part of Mailfromd testsuite. 
 
 
+# Require a reasonably recent autotest.
+m4_version_prereq([2.52g])
+
+m4_define([AT_SKIP_TEST],[exit 77])
+
 dnl ------------------------------------------------------------
 dnl ------------------------------------------------------------
 dnl MUT_VERSION(TOOL)  -- checks the version output from TOOL
 dnl MUT_VERSION(TOOL)  -- checks the version output from TOOL
 dnl
 dnl
@@ -38,5 +43,3 @@ _EOT
 AT_CLEANUP
 AT_CLEANUP
 ])
 ])
 
 
-m4_define([AT_SKIP_TEST],[exit 77])
-