1 files changed, 3 insertions, 1 deletions
diff --git a/lib/PublicInbox/MID.pm b/lib/PublicInbox/MID.pm
index 169ffa76..78952b95 100644
--- a/lib/PublicInbox/MID.pm
+++ b/lib/PublicInbox/MID.pm
@@ -6,7 +6,7 @@ package PublicInbox::MID;
  use strict;
  use warnings;
  use base qw/Exporter/;
-our @EXPORT_OK = qw/mid_clean id_compress mid2path/;
+our @EXPORT_OK = qw/mid_clean id_compress mid2path mid_mime/;
  use Digest::SHA qw/sha1_hex/;
  use constant MID_MAX => 40; # SHA-1 hex length
  
@@ -42,4 +42,6 @@ sub mid2path {
          "$x2/$x38";
  }
  
+sub mid_mime ($) { $_[0]->header_obj->header_raw('Message-ID') }
+
  1;