–http://stackoverflow.com/questions/1850824/parsing-a-rfc-822-date-with-nsdateformatter
on rfc822StrDecode(dateString)
　　set aTZ to "GMT"
　　set en_US_POSIX to current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:"en_US_POSIX"
　　set dateFormatter to current application’s NSDateFormatter’s alloc()’s init()
　　dateFormatter’s setLocale:en_US_POSIX
　　dateFormatter’s setTimeZone:(current application’s NSTimeZone’s timeZoneWithAbbreviation:(current application’s NSString’s stringWithString:aTZ))
　　
　　set aDate to missing value
　　set RFC822String to (current application’s NSString’s stringWithString:dateString)’s uppercaseString()
　　if (RFC822String’s rangeOfString:",")’s location() is not equal to (current application’s NSNotFound) then
　　　　if aDate is equal to missing value then
　　　　　　— Sun, 19 May 2002 15:21:36 GMT
　　　　　　dateFormatter’s setDateFormat:"EEE, d MMM yyyy HH:mm:ss zzz"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— Sun, 19 May 2002 15:21 GMT
　　　　　　dateFormatter’s setDateFormat:"EEE, d MMM yyyy HH:mm zzz"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— Sun, 19 May 2002 15:21:36
　　　　　　dateFormatter’s setDateFormat:"EEE, d MMM yyyy HH:mm:ss"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— Sun, 19 May 2002 15:21:36
　　　　　　dateFormatter’s setDateFormat:"EEE, d MMM yyyy HH:mm"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　else
　　　　if aDate is equal to missing value then
　　　　　　— 19 May 2002 15:21:36 GMT
　　　　　　dateFormatter’s setDateFormat:"d MMM yyyy HH:mm:ss zzz"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— 19 May 2002 15:21 GMT
　　　　　　dateFormatter’s setDateFormat:"d MMM yyyy HH:mm zzz"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— 19 May 2002 15:21:36
　　　　　　dateFormatter’s setDateFormat:"d MMM yyyy HH:mm:ss"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　　　if aDate is equal to missing value then
　　　　　　— 19 May 2002 15:21
　　　　　　dateFormatter’s setDateFormat:"d MMM yyyy HH:mm"
　　　　　　set aDate to dateFormatter’s dateFromString:RFC822String
　　　　end if
　　　　
　　end if
　　
　　if aDate is equal to missing value then return false
　　return aDate as date
end rfc822StrDecode

★Click Here to Open This Script