Monotone-Parent: 694600692b70cc30ffc96cddeb455dc83bc72078

Monotone-Revision: 71e8d6e738a201066fe20c3c31bde9c788ee9743

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2011-02-04T16:08:13
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,5 +1,8 @@
 2011-02-04  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* OpenChange/MAPIStoreMailMessageTable.m (-childKeys)
+	(-restrictedChildKeys): now only return non-deleted elements.
+
 	* OpenChange/SOGoMAPIFSMessage.m (-MAPISave): use an alternative
 	way of producing the property list file as, for some reason,
 	invoking -writeToFile:atomically: can fail on NSDictionary.

OpenChange/MAPIStoreMailMessageTable.m

@@ -27,6 +27,8 @@
 
 #import <NGExtensions/NSObject+Logs.h>
 
+#import <EOControl/EOQualifier.h>
+
 #import <SOGo/NSArray+Utilities.h>
 
 #import <Mailer/SOGoMailFolder.h>
@@ -47,20 +49,34 @@
 
 static Class NSDataK, NSStringK;
 
+static EOQualifier *nonDeletedQualifier = nil;
+
 + (void) initialize
 {
+  EOKeyValueQualifier *deletedQualifier;
+
   NSDataK = [NSData class];
   NSStringK = [NSString class];
+  deletedQualifier = [[EOKeyValueQualifier alloc]
+                            initWithKey: @"FLAGS"
+                       operatorSelector: EOQualifierOperatorContains
+                                  value: [NSArray arrayWithObject: @"DELETED"]];
+  nonDeletedQualifier = [[EONotQualifier alloc]
+                          initWithQualifier: deletedQualifier];
+  [deletedQualifier release];
 }
 
 - (NSArray *) childKeys
 {
-  return [folder toOneRelationshipKeys];
+  return [[folder fetchUIDsMatchingQualifier: nonDeletedQualifier
+                                sortOrdering: @"ARRIVAL"]
+           stringsWithFormat: @"%@.eml"];
 }
 
 - (NSArray *) restrictedChildKeys
 {
   NSArray *keys;
+  EOAndQualifier *andQualifier;
   
   if (restrictionState == MAPIRestrictionStateAlwaysTrue)
     keys = [self cachedChildKeys];
@@ -68,9 +84,12 @@ static Class NSDataK, NSStringK;
     keys = [NSArray array];
   else
     {
-      keys = [[folder fetchUIDsMatchingQualifier: restriction
+      andQualifier = [[EOAndQualifier alloc]
+                       initWithQualifiers: restriction, nonDeletedQualifier, nil];
+      keys = [[folder fetchUIDsMatchingQualifier: andQualifier
 		      sortOrdering: @"ARRIVAL"]
 	       stringsWithFormat: @"%@.eml"];
+      [andQualifier release];
       [self logWithFormat: @"  restricted keys: %@", keys];
     }