From 503e2994419e717d973828553a0429dbd4c80ddb Mon Sep 17 00:00:00 2001
From: Ian Campbell <ian.campbell@citrix.com>
Date: Tue, 2 Jul 2013 14:55:08 +0100
Subject: [PATCH] Don't display 01/01/1970 date for non-present messages.

---
 Emesinae/CGI/Message.pm | 2 +-
 Emesinae/Message.pm     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Emesinae/CGI/Message.pm b/Emesinae/CGI/Message.pm
index 3e1e30f..8a26a0c 100644
--- a/Emesinae/CGI/Message.pm
+++ b/Emesinae/CGI/Message.pm
@@ -188,7 +188,7 @@ sub format_html ($;$) {
                 hdr( "To",         $m->{to}->stringify ),
                 hdr( "Cc",         $m->{cc}->stringify ),
                 hdr( "Subject",    $m->{subject}->stringify ),
-                hdr( "Date",       $m->{date}->stringify ),
+                hdr( "Date",       $m->{date} ? $m->{date}->stringify : undef),
                 hdr( "Message-ID", $m->{msgid} )
             )
         )
diff --git a/Emesinae/Message.pm b/Emesinae/Message.pm
index bca4c6f..509d7ea 100644
--- a/Emesinae/Message.pm
+++ b/Emesinae/Message.pm
@@ -38,7 +38,7 @@ sub lookup_id {
         present  => $present eq "true",
         inserted => $inserted,
         msgtype  => $msgtype,
-        date     => Mail::Field::Date->new( 'date', $date ),
+        date     => $date ? Mail::Field::Date->new( 'date', $date ) : undef,
         from     => Mail::Field::AddrList->new( 'from', $from ),
         to       => Mail::Field::AddrList->new( 'to', $to ),
         cc       => Mail::Field::AddrList->new( 'cc', $cc ),
@@ -102,7 +102,7 @@ sub lookup_msgid {
         id       => $id,
         msgid    => $msgid,
         msgtype  => $msgtype,
-        date     => Mail::Field::Date->new( 'date', $date ),
+        date     => $date ? Mail::Field::Date->new( 'date', $date ) : undef,
         from     => Mail::Field::AddrList->new( 'from', $from ),
         to       => Mail::Field::AddrList->new( 'to', $to ),
         cc       => Mail::Field::AddrList->new( 'cc', $cc ),
-- 
2.39.5