Listing vmail mailboxes

[hcoop/domtool2.git] / src / msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index c970491..cc792ff 100644 (file)
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -65,5 +65,9 @@ datatype msg =
        (* Change a vmail account's password *)
        | MsgRmMailbox of {domain : string, user : string}
        (* Remove a vmail mapping *)
        (* Change a vmail account's password *)
        | MsgRmMailbox of {domain : string, user : string}
        (* Remove a vmail mapping *)

+       | MsgListMailboxes of string
+       (* List all mailboxes for a domain *)
+       | MsgMailboxes of string list
+       (* Reply to MsgListMailboxes *)

 
 end
 
 end