Added support for MailDAV PUT

Monotone-Parent: 90509c89f14ff1a8b0d7884244366bd33783ccc1
Monotone-Revision: 8515028ade639f5e3e38f20b4eba28b16a1250b1

Monotone-Author: crobert@inverse.ca
Monotone-Date: 2009-09-29T20:13:36
Monotone-Branch: ca.inverse.sogo

SoObjects/Mailer/SOGoMailBaseObject.m

@@ -21,6 +21,7 @@
 
 #import <Foundation/NSCharacterSet.h>
 #import <Foundation/NSString.h>
+#import <Foundation/NSDictionary.h>
 
 #import <NGObjWeb/SoObject+SoDAV.h>
 #import <NGExtensions/NSNull+misc.h>
@@ -230,4 +231,17 @@ static BOOL debugOn = YES;
   return nil;
 }
 
+- (int) IMAP4IDFromAppendResult: (NSDictionary *) result
+{
+  NSDictionary *results;
+  NSString *flag, *newIdString;
+
+  results = [[result objectForKey: @"RawResponse"]
+                     objectForKey: @"ResponseResult"];
+  flag = [results objectForKey: @"flag"];
+  newIdString = [[flag componentsSeparatedByString: @" "] objectAtIndex: 2];
+
+  return [newIdString intValue];
+}
+
 @end /* SOGoMailBaseObject */