DIRTY HACK: don't encode subject if they are not doing so

--- amavisd.orig	Tue Aug 24 17:21:24 2004
+++ amavisd	Fri Aug 27 02:39:22 2004
@@ -3233,7 +3233,7 @@
 #
 sub hdr($$;$) {
   my($field_name, $field_body, $structured) = @_;
-  if ($field_name =~ /^(X-.*|Subject|Comments)\z/si &&
+  if ($field_name =~ /^(X-.*|Comments)\z/si &&
       $field_body =~ /[^\011\012\040-\176]/ #any nonprintable except TAB and LF
   ) { # encode according to RFC 2047
     $field_body =~ s/\n([ \t])/$1/g;  # unfold
@@ -3246,7 +3246,7 @@
       $field_body = MIME::Words::encode_mimeword($field_body_octets,
                                                  $qb, c('hdr_encoding'));
     }
-  } else {  # supposed to be in plain ASCII, let's make sure it is
+  } elsif ($field_name !~ /^(Subject)$(?!\n)/si) {  # supposed to be in plain ASCII, let's make sure it is
     $field_body = safe_encode('ascii', $field_body);
   }
   $field_name = safe_encode('ascii', $field_name);