case maybe_message of
Nothing -> return ()
Just message -> do
default_date <- rfc822_now
let mfs = message_from_status message (default_date)
let messages = map mfs statuses
case maybe_message of
Nothing -> return ()
Just message -> do
default_date <- rfc822_now
let mfs = message_from_status message (default_date)
let messages = map mfs statuses