Re: [PATCH] send-mail: Add option to sleep between sending each email.

[Georgi Chorbadzhiyski <gf@unixsol.org>]

Around 09/08/2011 01:44 PM, Ramkumar Ramachandra scribbled:
> 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;

I don't see how this would solve the problem that MTA can send
emails after the first one out of order.

-- 
Georgi Chorbadzhiyski
http://georgi.unixsol.org/