--- contrib/sequencer-MIME-decode-index	Sat Sep 12 14:17:54 1998
+++ contrib/sequencer	Sat Sep 12 15:42:10 1998
@@ -264,23 +264,29 @@
 		       } 
 
 		    # prepend subject prefix
-		    if (   (/^subject:\s*/i) &&
-			   ($config_opts{$opt_l,"subject_prefix"} ne '') 
-		       ) {
+		   if     (/^subject:\s*/i)  {
 			 local($foo) = &config'substitute_values(
 			    $config_opts{$opt_l,"subject_prefix"}, $opt_l);
+		       if ($config_opts{$opt_l,"subject_prefix"} ne '')  {
 # for sequencing we add a special keyword!
 			 if (defined($opt_n)) {
 				 $foo =~ s/\$SEQNUM/$seqnum/;
 			 }
+			 }
 			 $subject = $_;
 			 $subject =~ s/^subject:\s*(.*)/$1/i;
 			 $subject = &chop_nl($foo . " " . $subject);
 			 local($foo_pat) = $foo;
 			 $foo_pat =~ s/(\W)/\\$1/g;
 			 s/^subject:\s*/Subject: $foo /i if !/$foo_pat/;
+                         $subject_last = 1 ;
 			}
 
+                    elsif ( defined($subject_last) ) {
+                       if ( /^\s+(.+)/ ) {
+                           $subject .= " $1";}
+                       else {
+                           undef($subject_last);}}
 		    if ( /^from:\s*(.+)/i )
 		    {
 			$from = $1;