Bugfix

@@ -253,6 +253,7 @@ shell (mu_list_t list)
   mu_iterator_t itr[NITR];
   int rc;
 
+  memset (&itr, 0, sizeof itr);
   num = 0;
   while (1)
     {
@@ -261,6 +262,14 @@ shell (mu_list_t list)
       int argc;
       char **argv;
 
+      if (!itr[num])
+	{
+	  rc = mu_list_get_iterator (list, &itr[num]);
+	  if (rc)
+	    lperror ("mu_list_get_iterator", rc);
+	  mu_iterator_first (itr[num]);
+	}
+      
       rc = mu_iterator_current (itr[num], (void**) &text);
       if (rc)
 	lperror ("mu_iterator_current", rc);

 # -*- tcl -*-
 # This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2005, 2007 Free Software Foundation
+# Copyright (C) 2003, 2005, 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
@@ -63,6 +63,7 @@ prompt_text "tre"
 mailbox_prog_test "next 2"
 
 prompt_iterator 1
+prompt_text "en"
 mailbox_prog_test "iter 1"
 
 prompt_text "to"