X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/1d3ef80ec822ea0fa241eb5485549ca7417e787f..9ffe2f0fea48f1e2fa6a30b6a79b975b4a6f7671:/src/main.sml

diff --git a/src/main.sml b/src/main.sml
index 23cedce..4fe8124 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -788,7 +788,7 @@ fun service () =
 							     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 () => ())
 				
@@ -808,7 +808,7 @@ fun service () =
 								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 () => ())
 
@@ -824,7 +824,7 @@ fun service () =
 					     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 () => ())