Monotone-Parent: c1fa71027de8d19eaa232cf89370ad4655d2d15b

Monotone-Revision: 64e49d499c79080e88278175b2826dfc85d1c635

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-11-22T16:32:22
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,3 +1,11 @@
+2007-11-22  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/SOGo/NSCalendarDate+SOGo.m ([NSCalendarDate
+	+distantFuture]): rewrote method to return an object that is
+	compatible with NSCalendarDate, unlike the implementation in
+	GNUstep.
+	([NSCalendarDate +distantPast]): same as above.
+
 2007-11-21  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
 	* UI/MailPartViewers/UIxMailPartHTMLViewer.m: fixed infinite loop

SoObjects/SOGo/NSCalendarDate+SOGo.h

@@ -41,6 +41,9 @@
 
 - (NSString *) rfc822DateString;
 
++ (id) distantFuture;
++ (id) distantPast;
+
 @end
 
 #endif /* NSCALENDARDATE_SCHEDULER_H */

SoObjects/SOGo/NSCalendarDate+SOGo.m

@@ -136,4 +136,29 @@ static NSString *rfc822Months[] = {@"", @"Jan", @"Feb", @"Mar", @"Apr",
 	      timeZoneShift];
 }
 
+#define secondsOfDistantFuture 63113990400.0
+#define secondsOfDistantPast -63113817600.0
+
++ (id) distantFuture
+{
+  static NSCalendarDate *date = nil;
+
+  if (!date)
+    date
+      = [[self alloc] initWithTimeIntervalSinceReferenceDate: secondsOfDistantFuture];
+
+  return date;
+}
+
++ (id) distantPast
+{
+  static NSCalendarDate *date = nil;
+
+  if (!date)
+    date
+      = [[self alloc] initWithTimeIntervalSinceReferenceDate: secondsOfDistantPast];
+
+  return date;
+}
+
 @end