-message_from_status message date status =
- message { subject = "Twat: " ++ (screen_name (user status)),
- body = (pretty_print status),
- headers = ((headers message) ++ ["Date: " ++ date])}
-
+message_from_status message default_date status =
+ message { subject = "Twat: " ++ (screen_name (user status)),
+ body = (pretty_print status),
+ headers = ((headers message) ++ ["Date: " ++ date])}
+ where
+ -- Use the Status' created_at date if it can be coerced into
+ -- RFC822 format.
+ date = case (created_at_to_rfc822 $ created_at status) of
+ Nothing -> default_date
+ Just c -> c