lei convert: support IMAP output and "-F eml" inputs

[public-inbox.git] / lib / PublicInbox / NetWriter.pm

diff --git a/lib/PublicInbox/NetWriter.pm b/lib/PublicInbox/NetWriter.pm
index c68b0669e2f67435d54369883c31de3251d7f321..e26e9815610a3680aab3e6dc05a1321f9f94c1e9 100644 (file)
--- a/lib/PublicInbox/NetWriter.pm
+++ b/lib/PublicInbox/NetWriter.pm
@@ -16,7 +16,8 @@ my %IMAPkw2flags;
 sub imap_append {
        my ($mic, $folder, $bref, $smsg, $eml) = @_;
        $bref //= \($eml->as_string);
-       $smsg //= bless { }, 'PublicInbox::Smsg';
+       $smsg //= bless {}, 'PublicInbox::Smsg';
+       bless($smsg, 'PublicInbox::Smsg') if ref($smsg) eq 'HASH';
        $smsg->{ts} //= msg_timestamp($eml // PublicInbox::Eml->new($$bref));
        my @f = map { $IMAPkw2flags{$_} } @{$smsg->{kw}};
        $mic->append_string($folder, $$bref, "@f", $smsg->internaldate) or