*** ./sequencer	Tue Dec 10 01:50:48 1996
--- /usr/local/majordomo/sequencer	Mon Nov  1 16:36:25 1999
***************
*** 1,4 ****
! #!/usr/bin/perl -U
  
  # Copyright 1996 MACS, Inc. 
  # Copyright 1992, D. Brent Chapman.  See the Majordomo license agreement
--- 1,4 ----
! #!/usr/bin/perl
  
  # Copyright 1996 MACS, Inc. 
  # Copyright 1992, D. Brent Chapman.  See the Majordomo license agreement
***************
*** 153,158 ****
--- 153,162 ----
      &abort("sequencer: Can't open /tmp/sequencer.$$.in: $!");
  
  while (<STDIN>) {
+     if (/^Subject:/) {
+ 	s/R[eE]\:.*[\(\[].*\d+[\)\]]/Re\:/;
+         s/R[eE]\:\s+R[eE]\:/Re\:/g;
+     }
      print IN $_;
  }
  
***************
*** 195,201 ****
  					$foo = $foo . " ";
  				}
  			}
! 			$subject = $foo . "Message for " . $opt_l;
  			print OUT $subject, "\n";
  		}
  
--- 199,205 ----
  					$foo = $foo . " ";
  				}
  			}
!                         $subject = "Subject: " . $foo . "Message for " . $opt_l;
  			print OUT $subject, "\n";
  		}