diff options
Diffstat (limited to 'Documentation/mknews.perl')
-rwxr-xr-x | Documentation/mknews.perl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Documentation/mknews.perl b/Documentation/mknews.perl index ba049d9e..2d22d147 100755 --- a/Documentation/mknews.perl +++ b/Documentation/mknews.perl @@ -147,9 +147,10 @@ EOF } sub mime2atom { - my ($out, $astream, $mime, $ctx) = @_; - my $smsg = bless { mime => $mime }, 'PublicInbox::Smsg'; - if (defined(my $str = $astream->feed_entry($smsg))) { + my ($out, $astream, $eml, $ctx) = @_; + my $smsg = bless {}, 'PublicInbox::Smsg'; + $smsg->populate($eml); + if (defined(my $str = $astream->feed_entry($smsg, $eml))) { print $out $str or die; } } |