From 22121220a1350860b8cfba41bc88c1649ce710e7 Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Mon, 14 Feb 2011 17:25:29 +0000
Subject: [PATCH] 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 |  6 ++++++
 SoObjects/Mailer/SOGoMailObject.m | 20 ++++++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/SoObjects/Mailer/SOGoMailObject.h b/SoObjects/Mailer/SOGoMailObject.h
index d7b4327be..4b136b0ec 100644
--- a/SoObjects/Mailer/SOGoMailObject.h
+++ b/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;
diff --git a/SoObjects/Mailer/SOGoMailObject.m b/SoObjects/Mailer/SOGoMailObject.m
index b8394823c..9d1cd3d53 100644
--- a/SoObjects/Mailer/SOGoMailObject.m
+++ b/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