From bceb40f56a272146a7a1e8536ea48a15ed38d680 Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Tue, 27 Nov 2007 22:41:42 +0000
Subject: [PATCH] Monotone-Parent: c8525121d7db7aef92d05d9e761787cb3679156c
 Monotone-Revision: c55864cc54c30c7fa42e491f5f321085f64d935c

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-11-27T22:41:42
Monotone-Branch: ca.inverse.sogo
---
 SoObjects/Appointments/SOGoAppointmentFolder.m | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/SoObjects/Appointments/SOGoAppointmentFolder.m b/SoObjects/Appointments/SOGoAppointmentFolder.m
index cafd2173b..48c9478c7 100644
--- a/SoObjects/Appointments/SOGoAppointmentFolder.m
+++ b/SoObjects/Appointments/SOGoAppointmentFolder.m
@@ -838,7 +838,7 @@ static NSNumber   *sharedYes = nil;
   NSMutableDictionary *currentRecord;
   NSString *roles[] = {nil, nil, nil};
   iCalAccessClass accessClass;
-  NSString *role;
+  NSString *fullRole, *role;
 
   if (!stripFields)
     [self _buildStripFieldsFromFields: fields];
@@ -851,8 +851,10 @@ static NSNumber   *sharedYes = nil;
       role = roles[accessClass];
       if (!role)
 	{
-	  role = [[self roleForComponentsWithAccessClass: accessClass
-			forUser: uid] substringFromIndex: 9];
+	  fullRole = [self roleForComponentsWithAccessClass: accessClass
+			   forUser: uid];
+	  if ([fullRole length] > 9)
+	    role = [fullRole substringFromIndex: 9];
 	  roles[accessClass] = role;
 	}
       if ([role isEqualToString: @"DAndTViewer"])