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 3bdebfce..965c30c1 100755 --- a/Documentation/mknews.perl +++ b/Documentation/mknews.perl @@ -102,9 +102,10 @@ sub mime2txt { } sub mime2html { - my ($out, $mime, $ctx) = @_; - my $smsg = bless { mime => $mime }, 'PublicInbox::Smsg'; - print $out PublicInbox::View::index_entry($smsg, $ctx, 1) or die; + my ($out, $eml, $ctx) = @_; + my $smsg = bless {}, 'PublicInbox::Smsg'; + $smsg->populate($eml); + print $out PublicInbox::View::eml_entry($ctx, $smsg, $eml, 1) or die; } sub html_start { |