Monotone-Parent: 100d8ec9579d3775f3468d8a6c19fb77e3a4c287

Monotone-Revision: 8fcaeed31fe2440c4ecbc43cb96150303138e5a3

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-04-25T14:31:00
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,5 +1,9 @@
 2007-04-25  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/SOGo/NSCalendarDate+SOGo.m ([NSCalendarDate
+	rfc822DateString]): new method that returns a string conform to
+	rfc 822 and suitable for email headers.
+
 	* SoObjects/Mailer/SOGoDraftObject.m: invoke the new
 	"rfc822DateString" category method on the date we put in the
 	header.

SoObjects/SOGo/NSCalendarDate+SOGo.h

@@ -39,6 +39,8 @@
 - (NSCalendarDate *) sundayOfWeek;
 - (NSString *) shortDateString;
 
+- (NSString *) rfc822DateString;
+
 @end
 
 #endif /* NSCALENDARDATE_SCHEDULER_H */

SoObjects/SOGo/NSCalendarDate+SOGo.m

@@ -19,10 +19,18 @@
    02111-1307, USA.
 */
 
+#import <Foundation/NSCalendarDate.h>
+#import <Foundation/NSTimeZone.h>
 #import <NGExtensions/NSCalendarDate+misc.h>
 
 #import "NSCalendarDate+SOGo.h"
 
+static NSString *rfc822Days[] = {@"Sun", @"Mon", @"Tue", @"Wed", @"Thu",
+			         @"Fri", @"Sat"};
+static NSString *rfc822Months[] = {@"", @"Jan", @"Feb", @"Mar", @"Apr",
+				   @"May", @"Jun", @"Jul", @"Aug" , @"Sep",
+				   @"Oct", @"Nov", @"Dec"};
+
 @implementation NSCalendarDate (SOGoExtensions)
 
 + (id) dateFromShortDateString: (NSString *) dateString
@@ -110,4 +118,22 @@
   return str;
 }
 
+- (NSString *) rfc822DateString
+{
+  int timeZoneShift, tzSeconds;
+
+  tzSeconds = [[self timeZone] secondsFromGMT];
+  timeZoneShift = (tzSeconds / 3600);
+  tzSeconds -= timeZoneShift * 3600;
+  timeZoneShift *= 100;
+  timeZoneShift += tzSeconds / 60;
+
+  return
+    [NSString stringWithFormat: @"%@, %.2d %@ %d %.2d:%.2d:%.2d %.4d",
+	      rfc822Days[[self dayOfWeek]], [self dayOfMonth],
+	      rfc822Months[[self monthOfYear]], [self yearOfCommonEra],
+	      [self hourOfDay], [self minuteOfHour], [self secondOfMinute],
+	      timeZoneShift];
+}
+
 @end