From 478f5234660ac026e093102cecc5894ac6b3eeeb Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Tue, 26 Aug 2008 18:40:48 +0000
Subject: [PATCH] Monotone-Parent: 53112c079fc1cf21b6b08a3036256c983f01c96e
 Monotone-Revision: 0aa22924f2640ff5ef3beb088a558ab5c0f49338

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-08-26T18:40:48
Monotone-Branch: ca.inverse.sogo
---
 SoObjects/Mailer/SOGoMailFolder.m | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/SoObjects/Mailer/SOGoMailFolder.m b/SoObjects/Mailer/SOGoMailFolder.m
index ba44d771a..43886de3e 100644
--- a/SoObjects/Mailer/SOGoMailFolder.m
+++ b/SoObjects/Mailer/SOGoMailFolder.m
@@ -51,6 +51,12 @@ static BOOL aclUsernamesAreQuoted = NO;
 /* http://www.tools.ietf.org/wg/imapext/draft-ietf-imapext-acl/ */
 static BOOL aclConformsToIMAPExt = NO;
 
+@interface NGImap4Connection (PrivateMethods)
+
+- (NSString *) imap4FolderNameForURL: (NSURL *) url;
+
+@end
+
 @implementation SOGoMailFolder
 
 + (void) initialize
@@ -281,6 +287,7 @@ static BOOL aclConformsToIMAPExt = NO;
 {
   NSUserDefaults *ud;
   NSMutableDictionary *mailSettings;
+  NSString *urlString;
 
   ud = [[context activeUser] userSettings];
   mailSettings = [ud objectForKey: @"Mail"];
@@ -290,8 +297,14 @@ static BOOL aclConformsToIMAPExt = NO;
       [ud setObject: mailSettings forKey: @"Mail"];
     }
 
-  [mailSettings setObject: [self imap4URLString] forKey: @"folderForExpunge"];
-  [ud synchronize];
+  urlString = [self imap4URLString];
+  if (![[mailSettings objectForKey: @"folderForExpunge"]
+	 isEqualToString: urlString])
+    {
+      [mailSettings setObject: [self imap4URLString]
+		    forKey: @"folderForExpunge"];
+      [ud synchronize];
+    }
 }
 
 - (void) expungeLastMarkedFolder