init.d script for domtool-slave

[hcoop/domtool2.git] / src / main-vmail.sml

diff --git a/src/main-vmail.sml b/src/main-vmail.sml
index 05cb86f..8acb845 100644 (file)
--- a/src/main-vmail.sml
+++ b/src/main-vmail.sml
@@ -27,8 +27,10 @@ val _ =
            (case Main.requestListMailboxes domain of
                 Vmail.Error msg => (print msg;
                                     print "\n")
            (case Main.requestListMailboxes domain of
                 Vmail.Error msg => (print msg;
                                     print "\n")

-              | Vmail.Listing users => app (fn user => (print user;
-                                                        print "\n")) users)
+              | Vmail.Listing users => app (fn {user, mailbox} => (print user;
+                                                                   print "\t";
+                                                                   print mailbox;
+                                                                   print "\n")) users)

 
          | ["add", user, mailbox] =>
            (case Client.getpass () of
 
          | ["add", user, mailbox] =>
            (case Client.getpass () of