diff --git a/ChangeLog b/ChangeLog
index 492ae6d9a..7e7bac6c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-10-12  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* UI/Scheduler/UIxCalMainView.m ([UIxCalMainView
+	-batchDeleteAction]): new method to delete selected entries in the
+	lists.
+
 	* SoObjects/Appointments/SOGoAppointmentFolder.m
 	([SOGoAppointmentFolder -deleteEntriesWithIds:ids]): new method
 	that delete identified entries in batch.
diff --git a/UI/Scheduler/UIxCalMainView.m b/UI/Scheduler/UIxCalMainView.m
index ca1c1b87f..b73789f59 100644
--- a/UI/Scheduler/UIxCalMainView.m
+++ b/UI/Scheduler/UIxCalMainView.m
@@ -27,6 +27,8 @@
 
 #import "UIxCalMainView.h"
 
+#import <Appointments/SOGoAppointmentFolder.h>
+
 static NSMutableArray *monthMenuItems = nil;
 static NSMutableArray *yearMenuItems = nil;
 
@@ -90,4 +92,20 @@ static NSMutableArray *yearMenuItems = nil;
   return yearMenuItem;
 }
 
+- (id) batchDeleteAction
+{
+  NSArray *ids;
+  SOGoAppointmentFolder *clientObject;
+
+  ids = [[self queryParameterForKey: @"ids"]
+          componentsSeparatedByString: @"/"];
+  if (ids)
+    {
+      clientObject = [self clientObject];
+      [clientObject deleteEntriesWithIds: ids];
+    }
+
+  return self;
+}
+
 @end