vmail interprets relative paths relatively to caller's home directory

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

diff --git a/src/main.sml b/src/main.sml
index d57b867..8bec641 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -1361,7 +1361,8 @@ fun service () =
                                               SOME "Invalid password; may only contain printable, non-space characters")
                                          else if not (Domain.yourPath mailbox) then
                                              ("User wasn't authorized to add a mailbox at " ^ mailbox,
-                                              SOME "You're not authorized to use that mailbox location.")
+                                              SOME ("You're not authorized to use that mailbox location. ("
+                                                    ^ mailbox ^ ")"))
                                          else
                                              case Vmail.add {requester = user,
                                                              domain = domain, user = emailUser,