From 4dd3b07cdaef34d607899f7c5fdaa648dbbc798c Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 6 Oct 2002 20:34:10 +0000
Subject: [PATCH] Fixed passthru: -q|-Q are also valid non-delivering options

---
 perlmail-sendmail | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 59ea8b1..e2ff291 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -141,6 +141,8 @@ Getopt::Long::Configure(
 		);
 
 my $opt_b;
+my $opt_Q;
+my $opt_q;
 my $opt_t;
 our $opt_f;
 #my $opt_F;	# declared before &FromAddress already
@@ -148,6 +150,8 @@ my $opt_lacemail_dry_run;
 my @ARGV_save=@ARGV;	# for non-bm mode
 die if !Getopt::Long::GetOptions(
 		"b=s"              ,\$opt_b,
+		"Q:s"              ,\$opt_Q,
+		"q:s"              ,\$opt_q,
 		"t"                ,\$opt_t,
 		"f=s"              ,\$opt_f,
 		"F=s"              ,\$opt_F,
@@ -158,6 +162,8 @@ if (0
 		|| grep({ File::Basename::basename($0) eq $_; } "newaliases","mailq","smtpd","hoststat","purgestat")
 		# -bm: Deliver mail in the usual way (default).
 		|| (defined($opt_b) && $opt_b ne "m")
+		|| defined $opt_q	# MD_QUEUERUN
+		|| defined $opt_Q	# MD_QUEUERUN
 		) {
 	@ARGV=@ARGV_save;
 	sendmail_orig_exec();
-- 
1.8.3.1