1 files changed, 7 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiStore.pm b/lib/PublicInbox/LeiStore.pm
index 3a215973..546d500b 100644
--- a/lib/PublicInbox/LeiStore.pm
+++ b/lib/PublicInbox/LeiStore.pm
@@ -12,7 +12,7 @@ use v5.10.1;
  use parent qw(PublicInbox::Lock PublicInbox::IPC);
  use PublicInbox::ExtSearchIdx;
  use PublicInbox::Import;
-use PublicInbox::InboxWritable;
+use PublicInbox::InboxWritable qw(eml_from_path);
  use PublicInbox::V2Writable;
  use PublicInbox::ContentHash qw(content_hash content_digest);
  use PublicInbox::MID qw(mids mids_in);
@@ -224,6 +224,12 @@ sub set_eml {
          add_eml($self, $eml, @kw) // set_eml_keywords($self, $eml, @kw);
  }
  
+sub set_eml_from_maildir {
+        my ($self, $f, $set_kw) = @_;
+        my $eml = eml_from_path($f) or return;
+        set_eml($self, $eml, $set_kw ? maildir_keywords($f) : ());
+}
+
  sub done {
          my ($self) = @_;
          my $err = '';