diff --git a/ChangeLog b/ChangeLog
index 666e9294d..c142c23e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-05-22  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/Mailer/SOGoMailObject.m ([SOGoMailObject
+	-isDeletionAllowed]): completed method with the new imap acl api.
+
 	* SoObjects/SOGo/SOGoObject.m ([SOGoObject -defaultAclRoles]):
 	removed method.
 
diff --git a/SoObjects/Mailer/SOGoMailObject.m b/SoObjects/Mailer/SOGoMailObject.m
index 14af16563..d0d29c05e 100644
--- a/SoObjects/Mailer/SOGoMailObject.m
+++ b/SoObjects/Mailer/SOGoMailObject.m
@@ -639,10 +639,15 @@ static BOOL debugSoParts       = NO;
 
 /* permissions */
 
-- (BOOL)isDeletionAllowed {
-#warning b0000ooo
-  return YES;
-//   return [[self container] isDeleteAndExpungeAllowed];
+- (BOOL) isDeletionAllowed
+{
+  NSArray *parentAcls;
+  NSString *login;
+
+  login = [[context activeUser] login];
+  parentAcl = [[self container] aclsForUser: login];
+
+  return [parentAcl containsObject: SOGoMailRole_MessageEraser];
 }
 
 /* name lookup */