--- contrib/sequencer-split-subject-for-INDEX	Sat Sep 12 15:42:10 1998
+++ contrib/sequencer	Sat Sep 12 16:02:05 1998
@@ -279,6 +279,9 @@
 			 local($foo_pat) = $foo;
 			 $foo_pat =~ s/(\W)/\\$1/g;
 			 s/^subject:\s*/Subject: $foo /i if !/$foo_pat/;
+			 s/R[eE]\:.*[\(\[]\w+\W*\d+[\)\]]/Re\:/;
+			 s/R[eE]\:\s+R[eE]\:/Re\:/g;
+
                          $subject_last = 1 ;
 			}