diff --git a/ChangeLog b/ChangeLog
index 6788588ee..eafe47f3e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-29  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/Mailer/SOGoMailFolder.m ([SOGoMailFolder
+	-primaryFetchMailboxInfo]): useless method. Removed.
+
 2007-05-28  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
 	* SoObjects/Mailer/SOGoMailFolder.m ([SOGoMailFolder
diff --git a/SoObjects/Mailer/SOGoMailFolder.m b/SoObjects/Mailer/SOGoMailFolder.m
index 93a0c1723..9612b52a5 100644
--- a/SoObjects/Mailer/SOGoMailFolder.m
+++ b/SoObjects/Mailer/SOGoMailFolder.m
@@ -157,24 +157,6 @@ static BOOL useAltNamespace = NO;
   return [ds autorelease];
 }
 
-/* mailbox raw ops */
-
-- (NSException *) primaryFetchMailboxInfo
-{
-  /* returns nil if fetch was successful */
-  id info;
-  
-  if (selectInfo != nil)
-    return nil; /* select info exists, => no error */
-  
-  info = [[self imap4Connection] infoForMailboxAtURL:[self imap4URL]];
-  if ([info isKindOfClass:[NSException class]])
-    return info;
-  
-  selectInfo = [info retain];
-  return nil; /* no error */
-}
-
 /* messages */
 
 - (NSArray *) fetchUIDsMatchingQualifier: (id) _q
@@ -615,9 +597,4 @@ static BOOL useAltNamespace = NO;
   return owner;
 }
 
-- (BOOL) hasSupportForDefaultRoles
-{
-  return YES;
-}
-
 @end /* SOGoMailFolder */