--- mhamain.pl.old	Thu Feb 22 13:36:34 2001
+++ mhamain.pl	Thu Feb 22 19:23:05 2001
@@ -27,6 +27,9 @@
 
 package mhonarc;
 
+use MIME::Base64 ();
+use MIME::QuotedPrint();
+
 $VERSION = "2.4.7";
 $VINFO =<<EndOfInfo;
   MHonArc v$VERSION (Perl $])
@@ -801,6 +804,24 @@
     if (defined($fields{'subject'}) and $fields{'subject'} =~ /\S/) {
 	($sub = $fields{'subject'}) =~ s/\s+$//;
 	$sub = subject_strip($sub)  if $SubStripCode;
+	## Multiline Base64 encoded Subject
+	my @encoded;
+	my $line;
+	if($sub =~ /=\?[A-Za-z0-9\-]*\?[Bb]\?[A-Za-z0-9+\/=]*\?=/ ){
+	    @encoded = (split(/\?=/, $sub));
+	    $sub = "";
+	    for($line = 0; $line < scalar(@encoded); $line++){
+		$sub .= MIME::Base64::decode((split(/\?/,$encoded[$line]))[3]);
+	    }
+	}
+	## Multiline QuotedPrintable encoded Subject
+	if($sub =~ /=\?[A-Za-z0-9\-]*\?[Qq]\?[:ascii:]*\?=/){
+	    @encoded = (split(/\?=/, $sub));
+	    $sub = "";
+	    for($line = 0; $line <scalar(@encoded); $line++){
+		$sub .= MIME::Base64::decode((split(/\?/,$encoded[$line]))[3]);
+	    }
+	}
     } else {
 	$sub = 'No Subject';
     }