X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FView.pm;h=4a8e54aa566c762f9098daf1c1f6bb2b0a42e5d5;hb=7245596edd0167791e7324c2d34b7fd340a4557c;hp=b3545a4a9c3496220fe47d38aee20fa3e8c5cb9b;hpb=15782f34be59578fbec95c01f057bcf2d133414f;p=public-inbox.git
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index b3545a4a..4a8e54aa 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -97,11 +97,14 @@ sub index_entry {
}
my $ts = $mime->header('X-PI-TS');
- my $fmt = '%Y-%m-%d %H:%M UTC';
+ unless (defined $ts) {
+ $ts = msg_timestamp($mime);
+ }
+ my $fmt = '%Y-%m-%d %H:%M';
$ts = POSIX::strftime($fmt, gmtime($ts));
$rv .= "$pfx$subj\n$pfx";
- $rv .= "- by $from @ $ts - ";
+ $rv .= "- by $from @ $ts UTC - ";
$rv .= "next";
if ($prev >= 0) {
$rv .= "/prev";
@@ -583,13 +586,17 @@ sub load_results {
Email::MIME->new($str);
};
unless ($@) {
- my $t = eval { str2time($mime->header('Date')) };
- defined($t) or $t = 0;
- $mime->header_set('X-PI-TS', $t);
+ $mime->header_set('X-PI-TS', msg_timestamp($mime));
push @msgs, $mime;
}
}
\@msgs;
}
+sub msg_timestamp {
+ my ($mime) = @_;
+ my $ts = eval { str2time($mime->header('Date')) };
+ defined($ts) ? $ts : 0;
+}
+
1;