about summary refs log tree commit homepage
path: root/Documentation/mknews.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Documentation/mknews.perl')
-rwxr-xr-xDocumentation/mknews.perl7
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;
         }
 }