Changes to support IMAP on hopper all compile but are not tested yet

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

diff --git a/src/main.sml b/src/main.sml
index be4191b..d46deac 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -1701,6 +1701,10 @@ fun slave () =
                                                        Msg.send (bio, MsgOk))
                                       | MsgRegenerate => (Domain.resetLocal ();
                                                           Msg.send (bio, MsgOk))
+                                      | MsgVmailChanged => (if Vmail.doChanged () then
+                                                                Msg.send (bio, MsgOk)
+                                                            else
+                                                                Msg.send (bio, MsgError "userdb update failed"))
                                       | _ => (print "Dispatcher sent unexpected command\n";
                                               Msg.send (bio, MsgError "Unexpected command"))
                         in