-diag "Testing iso-8859-1 encoded non-ASCII in From: header";
-SKIP:{
- skip "Test requires Email::Address 1.893 or later, "
- . "you have $Email::Address::VERSION", 3,
- if $Email::Address::VERSION < 1.893;
-
- my $mail = Encode::encode( 'iso-8859-1', Encode::decode( "UTF-8", <<'.' ) );
+diag "Testing non-ASCII latin1 in From: header with MIME-word-encoded phrase";
+{
+ my $mail = Encode::encode( 'iso-8859-1', Encode::decode( "UTF-8", <<'.') );