Monotone-Parent: 422ddfee6bdfec5c38432669ba25b9bd6724d6ab

Monotone-Revision: ca89b4b4aa3ed9d74f2eb1ed5db3dfbf7f5e596c

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2011-03-31T22:07:03
Monotone-Branch: ca.inverse.sogo

OpenChange/MAPIStoreMessage.m

@@ -254,6 +254,12 @@
       rc = [self getProperty: data withTag: PR_MESSAGE_CLASS_UNICODE];
       break;
 
+    case PR_HASATTACH:
+      *data = MAPIBoolValue (memCtx,
+                             [[self childKeysMatchingQualifier: nil
+                                    andSortOrderings: nil] count] > 0);
+      break;
+
     default:
       rc = [super getProperty: data withTag: propTag];
     }