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