+sub get_val ($$) {
+ my ($doc, $col) = @_;
+ Search::Xapian::sortable_unserialise($doc->get_value($col));
+}
+
+sub load_doc {
+ my ($class, $doc) = @_;
+ my $data = $doc->get_data;
+ my $ts = get_val($doc, &PublicInbox::Search::TS);
+ $data = $enc_utf8->decode($data);
+ my ($subj, $from, $refs, $to, $cc) = split(/\n/, $data);
+ bless {
+ doc => $doc,
+ subject => $subj,
+ ts => $ts,
+ from => $from,
+ references => $refs,
+ to => $to,
+ cc => $cc,
+ }, $class;
+}
+
+# :bytes and :lines metadata in RFC 3977
+sub bytes ($) { get_val($_[0]->{doc}, &PublicInbox::Search::BYTES) }
+sub lines ($) { get_val($_[0]->{doc}, &PublicInbox::Search::LINES) }
+sub num ($) { get_val($_[0]->{doc}, &PublicInbox::Search::NUM) }
+
+sub __hdr ($$) {
+ my ($self, $field) = @_;
+ my $val = $self->{$field};
+ return $val if defined $val;
+
+ my $mime = $self->{mime} or return;
+ $val = $mime->header($field);
+ $val = '' unless defined $val;
+ $val =~ tr/\t\r\n/ /;
+ $self->{$field} = $val;
+}
+
+sub subject ($) { __hdr($_[0], 'subject') }
+sub to ($) { __hdr($_[0], 'to') }
+sub cc ($) { __hdr($_[0], 'cc') }
+
+sub date ($) {
+ my ($self) = @_;
+ my $date = __hdr($self, 'date');
+ return $date if defined $date;
+ my $ts = $self->{ts};
+ return unless defined $ts;
+ $self->{date} = strftime('%a, %d %b %Y %T %z', gmtime($ts));
+}
+
+sub from ($) {
+ my ($self) = @_;
+ my $from = __hdr($self, 'from');
+ if (defined $from && !defined $self->{from_name}) {
+ $from =~ tr/\t\r\n/ /;
+ my @from = Email::Address->parse($from);
+ $self->{from_name} = $from[0]->name;
+ }
+ $from;
+}
+
+sub from_name {
+ my ($self) = @_;
+ my $from_name = $self->{from_name};
+ return $from_name if defined $from_name;
+ $self->from;
+ $self->{from_name};
+}
+
+sub ts {
+ my ($self) = @_;
+ $self->{ts} ||= eval { str2time($self->mime->header('Date')) } || 0;
+}
+
+sub to_doc_data {
+ my ($self) = @_;
+ join("\n", $self->subject, $self->from, $self->references,
+ $self->to, $self->cc);
+}
+
+sub references {
+ my ($self) = @_;
+ my $x = $self->{references};
+ defined $x ? $x : '';
+}
+