X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=Documentation%2Fmknews.perl;fp=Documentation%2Fmknews.perl;h=2d22d147ec4181ec9fa816a90912741555100b47;hb=9eac193c72e1380972f3589cb6b4f36b79183233;hp=ba049d9e64e1a6229ba9e11e0314d0cdcd7593d7;hpb=a3a6e24993a4c8d0fbcb56a23548c65e62f0a6ed;p=public-inbox.git

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;
 	}
 }