We will reuse the html_footer function in a nested index.
headers_to_html_header($mime, $full_pfx) .
multipart_text_as_html($mime, $full_pfx) .
'</pre><hr />' . PRE_WRAP .
headers_to_html_header($mime, $full_pfx) .
multipart_text_as_html($mime, $full_pfx) .
'</pre><hr />' . PRE_WRAP .
- html_footer($mime) . $footer .
+ html_footer($mime, 1) . $footer .
'</pre></body></html>';
}
'</pre></body></html>';
}
+ my ($mime, $purge) = @_;
my %cc; # everyone else
my $to; # this is the From address
my %cc; # everyone else
my $to; # this is the From address
- Email::Address->purge_cache;
+ Email::Address->purge_cache if $purge;
my $subj = $mime->header('Subject') || '';
$subj = "Re: $subj" unless $subj =~ /\bRe:/;
my $subj = $mime->header('Subject') || '';
$subj = "Re: $subj" unless $subj =~ /\bRe:/;