mh: add repl tests.

* mh/repl.c: Minor changes.
* tests/repl.at: New file.
* tests/Makefile.am (TESTSUITE_AT): Add repl.at
* mh/tests/testsuite.at: Include repl.at.
* mh/TODO: Update.

@@ -19,7 +19,7 @@ State	Nice	Utility		Comments
 -------------------------------------------
 +	-20	scan
 +	-20	inc
-*	-20	repl		--inplace
+*	-20	repl		--inplace,--query
 +	-20	comp		
 *	-20	forw		--inplace
 *	-20	send		--alias,--filter,--format,--forward,--mime,

@@ -58,7 +58,7 @@ static struct argp_option options[] = {
   {"inplace", ARG_INPLACE, N_("BOOL"), OPTION_ARG_OPTIONAL,
    N_("* annotate the message in place")},
   {"query", ARG_QUERY, N_("BOOL"), OPTION_ARG_OPTIONAL,
-   N_("query for addresses to place in To: and Cc: lists")},
+   N_("* query for addresses to place in To: and Cc: lists")},
   {"width", ARG_WIDTH, N_("NUMBER"), 0, N_("set output width")},
   {"whatnowproc", ARG_WHATNOWPROC, N_("PROG"), 0,
    N_("set the replacement for whatnow program")},
@@ -143,8 +143,7 @@ opt_handler (int key, char *arg, struct argp_state *state)
   switch (key)
     {
     case ARGP_KEY_INIT:
-      draftfolder = mh_global_profile_get ("Draft-Folder",
-					   mu_folder_directory ());
+      draftfolder = mh_global_profile_get ("Draft-Folder", NULL);
       whatnowproc = mh_global_profile_get ("whatnowproc", NULL);
       break;
       
@@ -225,6 +224,7 @@ opt_handler (int key, char *arg, struct argp_state *state)
       break;
       
     case ARG_QUERY:
+      mh_opt_notimpl_warning ("-inplace");
       query_mode = is_true (arg);
       break;
       

@@ -55,6 +55,7 @@ TESTSUITE_AT = \
  pick.at\
  scan.at\
  refile.at\
+ repl.at\
  rmf.at\
  rmm.at\
  testsuite.at

+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 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, see <http://www.gnu.org/licenses/>.
+
+m4_pushdef([MH_KEYWORDS],[repl])
+m4_pushdef([replcmd],[repl dnl
+-editor $abs_top_srcdir/mh/tests/mhed])
+
+MH_CHECK([repl msg],[repl00 repl-msg],[
+mkdir Mail/inbox
+AT_DATA([Mail/inbox/1],[From: gray@example.com
+To: root@example.com
+Subject: test input
+
+message body
+])
+echo "quit" | replcmd +inbox 1 | sed "s|$dir/*||;s|  *$||"
+echo == Mail/draft ==
+cat Mail/draft
+],
+[0],
+[-- Editor invocation: Mail/draft
+-- Input file:
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+-- Input file end
+What now? draft left on "Mail/draft".
+== Mail/draft ==
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+Seen by mhed
+])
+
+MH_CHECK([repl -draftfolder],[repl01 repl-draftfolder],[
+mkdir Mail/inbox
+mkdir Mail/drafts
+AT_DATA([Mail/inbox/1],[From: gray@example.com
+To: root@example.com
+Subject: test input
+
+message body
+])
+echo "quit" | replcmd -draftfolder drafts +inbox 1 | sed "s|$dir/*||;s|  *$||"
+echo == Mail/drafts/1 ==
+cat Mail/drafts/1
+],
+[0],
+[-- Editor invocation: Mail/drafts/1
+-- Input file:
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+-- Input file end
+What now? draft left on "Mail/drafts/1".
+== Mail/drafts/1 ==
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+Seen by mhed
+])
+
+m4_popdef([replcmd])
+m4_popdef([MH_KEYWORDS])
+# End of repl.at
\ No newline at end of file

@@ -59,3 +59,4 @@ m4_include([pick.at])
 m4_include([burst.at])
 m4_include([comp.at])
 m4_include([forw.at])
+m4_include([repl.at])