X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FSmsg.pm;h=7c90b92dabbcd7d764703e46b7bc31641aa1f526;hb=5557b4511a0717766364969fd374d567631e3ecf;hp=5eb0723f4257995832b7ba21c6fe8218f9f48a4e;hpb=28e2c4597f411590e4630911538e2f5973c50ea5;p=public-inbox.git diff --git a/lib/PublicInbox/Smsg.pm b/lib/PublicInbox/Smsg.pm index 5eb0723f..7c90b92d 100644 --- a/lib/PublicInbox/Smsg.pm +++ b/lib/PublicInbox/Smsg.pm @@ -12,7 +12,7 @@ use strict; use warnings; use base qw(Exporter); our @EXPORT_OK = qw(subject_normalized); -use PublicInbox::MID qw/mid_clean mid_mime/; +use PublicInbox::MID qw/mid_mime/; use PublicInbox::Address; use PublicInbox::MsgTime qw(msg_timestamp msg_datestamp); use Time::Local qw(timegm); @@ -178,12 +178,10 @@ sub mid ($;$) { $rv; } else { die "NO {mime} for mid\n" unless $self->{mime}; - $self->_extract_mid; # v1 w/o Xapian + mid_mime($self->{mime}) # v1 w/o Xapian } } -sub _extract_mid { mid_clean(mid_mime($_[0]->{mime})) } - our $REPLY_RE = qr/^re:\s+/i; sub subject_normalized ($) {