(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