From 65d428f1d951fac90848c46fdf75b3e661f61562 Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Wed, 21 Mar 2007 20:00:16 +0000
Subject: [PATCH] Monotone-Parent: 53298a197f5d670989c46dcb38770f68d310a39f
 Monotone-Revision: f8970fcb6459908f8da50c19a17d230c7a4ee5b8

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-03-21T20:00:16
Monotone-Branch: ca.inverse.sogo
---
 SoObjects/SOGo/SOGoFolder.m | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/SoObjects/SOGo/SOGoFolder.m b/SoObjects/SOGo/SOGoFolder.m
index 463344eb5..c79c0df94 100644
--- a/SoObjects/SOGo/SOGoFolder.m
+++ b/SoObjects/SOGo/SOGoFolder.m
@@ -90,7 +90,15 @@
 }
 
 - (GCSFolderManager *)folderManager {
-  return [GCSFolderManager defaultFolderManager];
+  static GCSFolderManager *folderManager = nil;
+
+  if (!folderManager)
+    {
+      folderManager = [GCSFolderManager defaultFolderManager];
+      [folderManager setFolderNamePrefix: @"SOGo_"];
+    }
+
+  return folderManager;
 }
 
 - (GCSFolder *)ocsFolderForPath:(NSString *)_path {
@@ -120,8 +128,6 @@
 {
   NSException *result;
 
-  [GCSFolderType setFolderNamePrefix: @"SOGo_"];
-
   result = [[self folderManager] createFolderOfType: [self folderType]
                                  atPath: ocsPath];