Re: [PATCH] send-mail: Add option to sleep between sending each email.
Hi,
I mocked up a small patch to demonstrate the "special cover letter
handling" idea. Let me know if you think it's worth pursuing.
Warning: Untested.
Signed-off-by: Ramkumar Ramachandra <artagnon@gmail.com>
-- 8< --
diff --git a/git-send-email.perl b/git-send-email.perl
index 98ab33a..30b8651 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -80,6 +80,7 @@ git send-email [options] <file | directory |
rev-list options >
--[no-]suppress-from * Send to self. Default off.
--[no-]chain-reply-to * Chain In-Reply-To: fields. Default off.
--[no-]thread * Use In-Reply-To: field. Default on.
+ --[no-]initial-wait <int> * Wait <int> seconds after sending
first email.
Administering:
--confirm <str> * Confirm recipients before sending;
@@ -190,7 +191,7 @@ sub do_edit {
}
# Variables with corresponding config settings
-my ($thread, $chain_reply_to, $suppress_from, $signed_off_by_cc);
+my ($thread, $initial_wait, $chain_reply_to, $suppress_from,
$signed_off_by_cc);
my ($to_cmd, $cc_cmd);
my ($smtp_server, $smtp_server_port, @smtp_server_options);
my ($smtp_authuser, $smtp_encryption);
@@ -205,6 +206,7 @@ my $not_set_by_user = "true but not set by the user";
my %config_bool_settings = (
"thread" => [\$thread, 1],
+ "initialwait" => [\$initial_wait, 0],
"chainreplyto" => [\$chain_reply_to, $not_set_by_user],
"suppressfrom" => [\$suppress_from, undef],
"signedoffbycc" => [\$signed_off_by_cc, undef],
@@ -1141,6 +1143,11 @@ X-Mailer: git-send-email $gitversion
} else {
print "Result: OK\n";
}
+ if ($initial_wait) {
+ print "Sleeping: $initial_wait seconds.\n" if (!$quiet);
+ sleep($initial_wait);
+ $initial_wait = 0;
+ }
}
return 1;
Ramkumar Ramachandra <artagnon@gmail.com>