--- contrib/sequencer-Web-Posted-Version	Sat Sep 12 16:17:18 1998
+++ contrib/sequencer	Sun Sep 13 21:02:39 1998
@@ -28,7 +28,7 @@
 
 # Before doing anything else tell the world I am sequencer
 # The mj_ prefix is reserved for tools that are part of majordomo proper.
-$main'program_name = 'sequencer';
+$main'program_name = 'sequencer'; #'#
 
 
 # If the first argument is "@filename", read the real arguments
@@ -137,7 +137,7 @@
 		print SEQ "1\n";
 		close SEQ;
 	}
-	&main'lopen(SEQ, "<", "$seqfile") || die("sequencer: locked open of $seqfile failed: $!");
+	&main'lopen(SEQ, "<", "$seqfile") || die("sequencer: locked open of $seqfile failed: $!"); #'#
 	chop($seqnum = <SEQ>);
 
 # note that the sequence file is opened and locked from here until 
@@ -186,7 +186,7 @@
 			local($foo);
 			if ($config_opts{$opt_l,"subject_prefix"} ne '') {
 				$foo = &config'substitute_values(
-					$config_opts{$opt_l,"subject_prefix"}, $opt_l);
+					$config_opts{$opt_l,"subject_prefix"}, $opt_l); #'#
 # for sequencing we add a special keyword!
 				if (defined($opt_n)) {
 					$foo =~ s/\$SEQNUM/$seqnum/;
@@ -207,13 +207,13 @@
 		}
 		if (defined($opt_r)) {
 		    print OUT "Reply-To: ", &config'substitute_values($opt_r),
-				 "\n";
+				 "\n"; #'#
 		}
 
 		# print out additonal headers
 		if ( $config_opts{$opt_l,"message_headers"} ne '' ) {
 			local($headers) = &config'substitute_values (
-			$config_opts{$opt_l,"message_headers"}, $opt_l);
+			$config_opts{$opt_l,"message_headers"}, $opt_l); #'#
 			$headers =~ s/\$SEQNUM/$seqnum/;
 			$headers =~ s/\001/\n/g;
 			print OUT $headers;
@@ -225,14 +225,14 @@
 		# print out front matter
 		if ( $config_opts{$opt_l,"message_fronter"} ne '' ) {
 			local($fronter) = &config'substitute_values (
-			$config_opts{$opt_l,"message_fronter"}, $opt_l);
+			$config_opts{$opt_l,"message_fronter"}, $opt_l); #'#
 			$fronter =~ s/\001|$/\n/g;
 			print OUT $fronter;
 		}		
 	    } elsif (/^approved:\s*(.*)/i && defined($opt_a)) {
 		$approved = &chop_nl($1);
 		if ($approved ne $opt_a && 
-			!(&main'valid_passwd($listdir, $opt_l, $approved))) {
+			!(&main'valid_passwd($listdir, $opt_l, $approved))) { #'#
 		    &bounce("Invalid 'Approved:' header");
 		}
 	    } elsif (/^from /i		# skip all these headers
@@ -267,7 +267,7 @@
 		    # prepend subject prefix
 		   if     (/^subject:\s*/i)  {
 			 local($foo) = &config'substitute_values(
-			    $config_opts{$opt_l,"subject_prefix"}, $opt_l);
+			    $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)) {
@@ -318,7 +318,7 @@
 		# OK, is it a valid "Approved:" line?
 		$approved = &chop_nl($1);
 		if ($approved ne $opt_a &&
-			!(&main'valid_passwd($listdir, $opt_l, $approved))) {
+			!(&main'valid_passwd($listdir, $opt_l, $approved))) { #'#
 		    &bounce("Invalid 'Approved:' header");
 		} else {
 		    # Yes, it's a valid "Approved:" line...
@@ -373,7 +373,7 @@
 
 if ( $config_opts{$opt_l,"message_footer"} ne '' ) {
 	local($footer) = &config'substitute_values(
-	$config_opts{$opt_l,"message_footer"}, $opt_l);
+	$config_opts{$opt_l,"message_footer"}, $opt_l); #'#
 	$footer =~ s/\001/\n/g;
 	print OUT $footer;
 }
@@ -422,7 +422,7 @@
 
 #remember to unlock the sequence file here!
 	if (defined($opt_n)) {
-		&main'lclose(SEQ);
+		&main'lclose(SEQ); #'#
 	}
     exit($status);
 } else {
@@ -454,9 +454,9 @@
 	}
 	if (defined($opt_n)) {
 		$seqnum++;
-		&main'lreopen(SEQ, ">", "$seqfile");
+		&main'lreopen(SEQ, ">", "$seqfile"); #'#
 		print SEQ $seqnum, "\n";
-		&main'lclose(SEQ);
+		&main'lclose(SEQ); #'#
 	}
     close(MAILIN);
     unlink(</tmp/sequencer.$$.*>);