diff options
author | Eric Wong <e@80x24.org> | 2016-10-05 23:47:21 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-10-05 23:52:52 +0000 |
commit | 712b8bb3a61cc261a4b8c1bfdb6e39f40cee3188 (patch) | |
tree | ffa0c554745e97eb0c518c6b21ffc609a43f3145 /lib/PublicInbox/SearchMsg.pm | |
parent | 857f94304d12ded130300a36378e1a9d7feee4a3 (diff) | |
download | public-inbox-712b8bb3a61cc261a4b8c1bfdb6e39f40cee3188.tar.gz |
This roughly doubles performance due to the reduction in object creation and abstraction layers.
Diffstat (limited to 'lib/PublicInbox/SearchMsg.pm')
-rw-r--r-- | lib/PublicInbox/SearchMsg.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/lib/PublicInbox/SearchMsg.pm b/lib/PublicInbox/SearchMsg.pm index 9d873c4a..9dcc1e6d 100644 --- a/lib/PublicInbox/SearchMsg.pm +++ b/lib/PublicInbox/SearchMsg.pm @@ -144,35 +144,6 @@ sub ensure_metadata { } } -# for threading only -sub mini_mime { - my ($self) = @_; - $self->ensure_metadata; - my @h = ( - 'Subject' => $self->subject, - 'X-PI-From' => $self->from_name, - # prevent Email::Simple::Creator from running, - # this header is useless for threading as we use X-PI-TS - # for sorting and display: - 'Date' => EPOCH_822, - 'Message-ID' => "<$self->{mid}>", - 'X-PI-TS' => $self->ts, - ); - if (my $refs = $self->{references}) { - push @h, References => $refs; - } - my $mime = Email::MIME->create(header => \@h); - my $h = $mime->header_obj; - - # set these headers manually since Encode::encode('MIME-Q', ...) - # will add spaces to long values when using header_str above. - - # drop useless headers Email::MIME set for us - $h->header_set('Date'); - $h->header_set('MIME-Version'); - $mime; -} - sub mid ($;$) { my ($self, $mid) = @_; |