Monotone-Parent: 5be6c87443be578d119d408f0aa2b86f5a6bbc31

Monotone-Revision: 7ad56d517ee86167bc71b34f0a08fd92931aa4cc

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2010-04-15T18:27:08
Monotone-Branch: ca.inverse.sogo

UI/MailerUI/UIxMailFolderActions.m

@@ -270,7 +270,9 @@
   if ([value length] > 0)
   {
     uids = [value componentsSeparatedByString: @","];
-    response = [co archiveUIDs: uids  inContext: context];
+    response = [co archiveUIDs: uids
+                inArchiveNamed: [self labelForKey: @"Saved Messages.zip"]
+                     inContext: context];
     if (!response)
       response = [self responseWith204];
   }
@@ -283,6 +285,15 @@
   return response;
 }
 
+- (WOResponse *) exportFolderAction
+{
+  WOResponse *response;
+
+  response = [[self clientObject] archiveAllMessagesInContext: context];
+
+  return response;
+}
+
 - (WOResponse *) copyMessagesAction
 {
   SOGoMailFolder *co;