Monotone-Parent: 6e6406a5a5fcc2049ff1a1d94860236558489a45

Monotone-Revision: e84bf5143c772f6a25ca10b0bb98c3669df4fde6

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2011-02-14T17:25:29
Monotone-Branch: ca.inverse.sogo

SoObjects/Mailer/SOGoMailObject.h

@@ -105,6 +105,12 @@
 - (NSException *) addFlags:(id)_f;
 - (NSException *) removeFlags:(id)_f;
 
+- (BOOL) isNewMail;  /* \Recent */
+- (BOOL) read;       /* \Unseen */
+- (BOOL) replied;    /* \Answered */
+- (BOOL) forwarded;  /* $forwarded */
+- (BOOL) deleted;    /* \Deleted */
+
 /* deletion */
 
 - (BOOL) isDeletionAllowed;

SoObjects/Mailer/SOGoMailObject.m

@@ -1331,11 +1331,31 @@ static BOOL debugSoParts       = NO;
   return ([[self fetchAttachmentIds] count] > 0);
 }
 
+- (BOOL) isNewMail
+{
+  return [self _hasFlag: @"recent"];
+}
+
 - (BOOL) read
 {
   return [self _hasFlag: @"seen"];
 }
 
+- (BOOL) replied
+{
+  return [self _hasFlag: @"answered"];
+}
+
+- (BOOL) forwarded
+{
+  return [self _hasFlag: @"$forwarded"];
+}
+
+- (BOOL) deleted
+{
+  return [self _hasFlag: @"deleted"];
+}
+
 - (NSString *) textDescription
 {
 #warning We should send the content as an NSData