[PATCH] Add "--chain-reply-to" to git-send-email-script, to control whether or not the

Note, using --no-chain-reply-to means you probably want to put a special
message into the first email you send, i.e, a 0/N patch cover sheet.

Signed-off-by: Ryan Anderson <ryan@michonline.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/git-send-email-script b/git-send-email-script
index 94d0f1da3a7de031ba5a8049031b3381297ddbc2..288662bec111db680d0cbf0253fcf00fe70fc129 100755 (executable)
--- a/git-send-email-script
+++ b/git-send-email-script
@@ -27,6 +27,9 @@ use Email::Valid;
 # Variables we fill in automatically, or via prompting:
 my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from);
 
 # Variables we fill in automatically, or via prompting:
 my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from);
 

+# Behavior modification variables
+my ($chain_reply_to) = (1);
+

 # Example reply to:
 #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';
 
 # Example reply to:
 #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';
 


@@ -39,6 +42,7 @@ my $rc = GetOptions("from=s" => \$from,
                     "in-reply-to=s" => \$initial_reply_to,
                    "subject=s" => \$initial_subject,
                    "to=s" => \@to,
                     "in-reply-to=s" => \$initial_reply_to,
                    "subject=s" => \$initial_subject,
                    "to=s" => \@to,

+                   "chain-reply-to!" => \$chain_reply_to,

         );
 
 # Now, let's fill any that aren't set in with defaults:
         );
 
 # Now, let's fill any that aren't set in with defaults:


@@ -90,6 +94,7 @@ if (!defined $initial_reply_to) {
                $term->readline("Message-ID to be used as In-Reply-To? ", 
                        $initial_reply_to)));
        $initial_reply_to = $_;
                $term->readline("Message-ID to be used as In-Reply-To? ", 
                        $initial_reply_to)));
        $initial_reply_to = $_;

+       $initial_reply_to =~ s/(^\s+|\s+$)//g;

 }
 
 # Now that all the defaults are set, process the rest of the command line
 }
 
 # Now that all the defaults are set, process the rest of the command line


@@ -119,6 +124,8 @@ Options:
    --to                  Specify the primary "To:" line of the email.
    --subject      Specify the initial "Subject:" line.
    --in-reply-to  Specify the first "In-Reply-To:" header line.
    --to                  Specify the primary "To:" line of the email.
    --subject      Specify the initial "Subject:" line.
    --in-reply-to  Specify the first "In-Reply-To:" header line.

+   --chain-reply-to If set, the replies will all be to the first
+                 email sent, rather than to the last email sent.

 
 Error: Please specify a file or a directory on the command line.
 EOT
 
 Error: Please specify a file or a directory on the command line.
 EOT


@@ -247,7 +254,9 @@ foreach my $t (@files) {
        send_message();
 
        # set up for the next message
        send_message();
 
        # set up for the next message

-       $reply_to = $message_id;
+       if ($chain_reply_to || length($reply_to) == 0) {
+               $reply_to = $message_id;
+       }

        make_message_id();
 #      $subject = "Re: ".$initial_subject;
 }
        make_message_id();
 #      $subject = "Re: ".$initial_subject;
 }