- Fix non-RFC dates formatting (#1484901)

alecpl

2008-04-17 ea090ca09d2ee04c68c524f0e3c63de2fdb21a04

- Fix non-RFC dates formatting (#1484901)

 CHANGELOG

@@ -5,6 +5,7 @@
----------
- Fix IMAP response in message body when message has no body (#1484964)
- Updated PEAR::Auth_SASL to 1.0.2
- Fix non-RFC dates formatting (#1484901)

2008/04/16 (estadtherr)
----------

 program/include/main.inc

@@ -1507,12 +1507,22 @@
  global $CONFIG, $sess_user_lang;
  
  $ts = NULL;
  

  if (is_numeric($date))
    $ts = $date;
  else if (!empty($date))
    $ts = @strtotime($date);
    
    {
    while (($ts = @strtotime($date))===false)
      {
        // if we have a date in non-rfc format
    // remove token from the end and try again
        $d = explode(' ', $date);
    array_pop($d);
    if (!$d) break;
    $date = implode(' ', $d);
      }
    }

  if (empty($ts))
    return '';
   

 program/steps/mail/func.inc

@@ -970,7 +970,7 @@
      continue;

    if ($hkey=='date' && !empty($headers[$hkey]))
      $header_value = format_date(strtotime($headers[$hkey]));
      $header_value = format_date($headers[$hkey]);
    else if (in_array($hkey, array('from', 'to', 'cc', 'bcc', 'reply-to')))
      $header_value = Q(rcmail_address_string($headers[$hkey], NULL, $attrib['addicon']), 'show');
    else
@@ -1500,7 +1500,7 @@
    $body = rcube_label("yourmessage") . "\r\n\r\n" .
      "\t" . rcube_label("to") . ': ' . rcube_imap::decode_mime_string($message['headers']->to, $message['headers']->charset) . "\r\n" .
      "\t" . rcube_label("subject") . ': ' . $message['subject'] . "\r\n" .
      "\t" . rcube_label("sent") . ': ' . format_date(strtotime($message['headers']->date), $CONFIG['date_long']) . "\r\n" .
      "\t" . rcube_label("sent") . ': ' . format_date($message['headers']->date, $CONFIG['date_long']) . "\r\n" .
      "\r\n" . rcube_label("receiptnote") . "\r\n";
    
    $ua = !empty($CONFIG['useragent']) ? $CONFIG['useragent'] : "RoundCube Webmail (Version ".RCMAIL_VERSION.")";