#!/usr/bin/perl
# Display a message for printing
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %userconfig);

our $trust_unknown_referers = 1;
require './mailbox-lib.pl';
&ReadParse();

# Get the folder
&set_module_index($in{'folder'});
my @folders = &list_folders();
my $folder = $folders[$in{'folder'}];

# Get the mail
my $mail = &mailbox_get_mail($folder, $in{'id'}, 0);
$mail || &error($text{'view_egone'});
&parse_mail($mail);
foreach my $s (split(/\0/, $in{'sub'})) {
	&decrypt_attachments($mail);
	my $amail = &extract_mail(
			$mail->{'attach'}->[$s]->{'data'});
	&parse_mail($amail);
	$mail = $amail;
	}
&decrypt_attachments($mail);
my ($textbody, $htmlbody, $body) = &find_body($mail, $userconfig{'view_html'});

my $mail_charset = &get_mail_charset($mail, $body);
if (&get_charset() eq 'UTF-8' && &can_convert_to_utf8(undef, $mail_charset)) {
	$body->{'data'} = &convert_to_utf8($body->{'data'}, $mail_charset);
	}
else {
	no warnings "once";
	$main::force_charset = $mail_charset;
	use warnings "once";
	}

# Show it
&ui_print_header(undef,
	&convert_header_for_display($mail->{'header'}->{'subject'}));
&show_mail_printable($mail, $body, $textbody, $htmlbody);
print "<script>window.print();</script>\n";
&ui_print_footer();