diff -Nur --no-dereference smeserver-ezmlm-www-2.0.0.old/root/opt/mailinglist/ezmlm-www.pl smeserver-ezmlm-www-2.0.0/root/opt/mailinglist/ezmlm-www.pl
--- smeserver-ezmlm-www-2.0.0.old/root/opt/mailinglist/ezmlm-www.pl	2022-03-19 15:51:35.558000000 -0400
+++ smeserver-ezmlm-www-2.0.0/root/opt/mailinglist/ezmlm-www.pl	2022-03-19 16:07:38.596000000 -0400
@@ -165,7 +165,8 @@
 		
 		for (@MessageIDs) {
 			print "<li>";
-			printf '<a href="?%s::%d">%s</a>', $WebRequest{ListID}, $_, Encode::decode( 'utf-8', $Messages{$_}->{subject} );
+			my $stri = ( Encode::is_utf8($Messages{$_}->{subject}) ) ? $Messages{$_}->{subject} : Encode::decode( 'utf-8', $Messages{$_}->{subject} );
+			printf '<a href="?%s::%d">%s</a>', $WebRequest{ListID}, $_, $stri;
 			print " ($Messages{$_}->{author})";
 			print "</li>\n";
 		}
@@ -179,7 +180,8 @@
 			my $thread_info = $WebRequest{List}->{archive}->getthread( $thread->{id} );
 			$thread->{date} =~ s/\s-\d{4}$//;
 			print "        <li>\n";
-			printf "          <b>%s</b> (%s)<br />\n", Encode::decode( 'utf-8', $thread_info->{subject} ), $thread->{date};
+			my $stri = ( Encode::is_utf8($thread_info->{subject} ) )? $thread_info->{subject}  : Encode::decode( 'utf-8', $thread_info->{subject} ) ;
+			printf "          <b>%s</b> (%s)<br />\n", $stri , $thread->{date};
 			print "          <ul class=\"messagelist\">\n";
 			foreach my $message ( @{$thread_info->{messages}} ) {
 				next if $message->{month} ne $month;
@@ -230,7 +232,7 @@
  	for (my $i=0; $i<=$#$parts; $i++) {
  		my $part = $parts->[$i];
  		if ($part->{type} eq 'text/plain') {
- 			$plaintext .= '<pre>' . Encode::decode( $charset, htmlencode(conceal($part->{body}, $WebRequest{List})) ) . '</pre>';
+ 			$plaintext .= ( ! Encode::is_utf8( htmlencode(conceal($part->{body}, $WebRequest{List})) ) ) ? '<pre>' . Encode::decode( $charset, htmlencode(conceal($part->{body}, $WebRequest{List})) ) . '</pre>' :  '<pre>' . htmlencode(conceal($part->{body}, $WebRequest{List})). '</pre>';
  		} elsif ($part->{type} eq 'text/html') {
  			if ($WebRequest{List}->{show_html}) {
  				my $url = "?$WebRequest{ListID}::$WebRequest{MessageID}:get:$i";
@@ -238,7 +240,7 @@
  				$iframe .= 'marginheight="0" frameborder="0" vspace="0" hspace="0" ';
  				$iframe .= 'style="overflow:visible;width:100%;display:none"></iframe>';
  			} else {
- 				$rawhtml .= '<pre>' . Encode::decode( $charset, htmlencode(conceal($part->{body}, $WebRequest{List})) ) . '</pre>';
+ 				$rawhtml .= ( ! Encode::is_utf8(htmlencode(conceal($part->{body}, $WebRequest{List})) ) ) ?  '<pre>' . Encode::decode( $charset, htmlencode(conceal($part->{body}, $WebRequest{List})) ) . '</pre>' : '<pre>' . htmlencode(conceal($part->{body}, $WebRequest{List})) . '</pre>';
  			}
  		} elsif ($part->{type} !~ m,^(?:text/(?:plain|html|enriched)|application/applefile)$,) {
  			$attachments{$i} = $part;
@@ -722,4 +724,4 @@
 	return undef;
 }
 
-1;
\ Pas de fin de ligne à la fin du fichier
+1;