X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/1d3ef80ec822ea0fa241eb5485549ca7417e787f..c9731b9b3ee43c4c8d82c31009a5870a01d3acfa:/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