Monotone-Parent: 5a4410525cba5a447107a195ccd7f2c23ac5f327

Monotone-Revision: dadffe002349ec77b297b78990111745b0d487d6

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-08-15T20:19:39
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,5 +1,9 @@
 2007-08-15  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/Mailer/SOGoMailBaseObject.m ([SOGoMailBaseObject
+	-isInDraftsFolder]): new method that detects if self is contained
+	by the drafts folder.
+
 	* SoObjects/Mailer/SOGoMailAccounts.m ([-fetchAllIdentities]):
 	removed method.
 	([-fetchIdentitiesWithEmitterPermissions]): removed method.

SoObjects/Mailer/SOGoMailBaseObject.h

@@ -48,30 +48,32 @@
   NGImap4Connection *imap4;
 }
 
-- (id)initWithImap4URL:(NSURL *)_url inContainer:(id)_container;
+- (id) initWithImap4URL: (NSURL *) _url
+	    inContainer: (id) _container;
 
 /* hierarchy */
 
-- (SOGoMailAccount *)mailAccountFolder;
-- (SOGoMailAccounts *)mailAccountsFolder;
+- (SOGoMailAccount *) mailAccountFolder;
+- (SOGoMailAccounts *) mailAccountsFolder;
+- (BOOL) isInDraftsFolder;
 
 /* IMAP4 */
 
-- (NGImap4Connection *)imap4Connection;
-- (NGImap4ConnectionManager *)mailManager;
+- (NGImap4Connection *) imap4Connection;
+- (NGImap4ConnectionManager *) mailManager;
 
 - (NSString *) relativeImap4Name;
 - (NSMutableString *) imap4URLString;
 
-- (NSURL *)imap4URL;
-- (NSString *)imap4Login;
-- (NSString *)imap4Password;
+- (NSURL *) imap4URL;
+- (NSString *) imap4Login;
+- (NSString *) imap4Password;
 
-- (void)flushMailCaches;
+- (void) flushMailCaches;
 
 /* IMAP4 names */
 
-- (BOOL)isBodyPartKey:(NSString *)_key inContext:(id)_ctx;
+- (BOOL) isBodyPartKey: (NSString *) _key inContext: (id) _ctx;
 
 @end
 

SoObjects/Mailer/SOGoMailBaseObject.m

@@ -95,6 +95,11 @@ static BOOL debugOn = YES;
   return o;
 }
 
+- (BOOL) isInDraftsFolder
+{
+  return [container isInDraftsFolder];
+}
+
 /* IMAP4 */
 
 - (NGImap4ConnectionManager *) mailManager