diff --git a/ChangeLog b/ChangeLog
index 8d7da08b8..028f80cbf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-28  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/Mailer/SOGoMailObject.m (-displayName): new accessor.
+
 	* SoObjects/Mailer/SOGoMailFolder.m (-displayName): fixed accessor
 	to return the real folder name rather than the nameInContainer,
 	which is escaped and prefixed with "folder".
diff --git a/SoObjects/Mailer/SOGoMailObject.m b/SoObjects/Mailer/SOGoMailObject.m
index 53bbcb42c..85dd8201a 100644
--- a/SoObjects/Mailer/SOGoMailObject.m
+++ b/SoObjects/Mailer/SOGoMailObject.m
@@ -252,6 +252,11 @@ static BOOL debugSoParts       = NO;
   return [[self envelope] subject];
 }
 
+- (NSString *) displayName
+{
+  return [self subject];
+}
+
 - (NSString *) decodedSubject
 {
   return [[self subject] decodedHeader];
@@ -892,7 +897,7 @@ static BOOL debugSoParts       = NO;
   return NO;
 }
 
-- (id) davContentLength
+- (NSString *) davContentLength
 {
   return [[self fetchCoreInfos] valueForKey: @"size"];
 }