X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/9ffe2f0fea48f1e2fa6a30b6a79b975b4a6f7671..2fc6b0dd10a94cf365b48df7fe6b0518e5dabdd1:/src/main-vmail.sml

diff --git a/src/main-vmail.sml b/src/main-vmail.sml
index 05cb86f..8acb845 100644
--- 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")
-	       | 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