passwd = passwd, mailbox = mailbox} of
NONE => ("Added mailbox " ^ emailUser ^ "@" ^ domain ^ " at " ^ mailbox,
NONE)
- | SOME msg => ("Error adding mailbox: " ^ msg,
+ | SOME msg => ("Error adding mailbox " ^ emailUser ^ "@" ^ domain ^ ": " ^ msg,
SOME msg))
(fn () => ())
passwd = passwd} of
NONE => ("Changed password of mailbox " ^ emailUser ^ "@" ^ domain,
NONE)
- | SOME msg => ("Error changing mailbox password: " ^ msg,
+ | SOME msg => ("Error changing mailbox password for " ^ emailUser ^ "@" ^ domain ^ ": " ^ msg,
SOME msg))
(fn () => ())
case Vmail.rm {domain = domain, user = emailUser} of
NONE => ("Deleted mailbox " ^ emailUser ^ "@" ^ domain,
NONE)
- | SOME msg => ("Error deleting mailbox: " ^ msg,
+ | SOME msg => ("Error deleting mailbox " ^ emailUser ^ "@" ^ domain ^ ": " ^ msg,
SOME msg))
(fn () => ())