mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-send-email-script: minimum whitespace cleanup.

Browse Source 
Now it is ready to hit the "master" branch, clean up the script
for trailing whitespace and mixture of tabs and spaces.

Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Junio C Hamano
2005-07-31 23:05:16 -07:00
parent a6d62cdd21
commit 5825e5b25c
1 changed files with 12 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
git-send-email-script
View File

@ -4,17 +4,17 @@
# Copyright 2005 Ryan Anderson <ryan@michonline.com> # Copyright 2005 Ryan Anderson <ryan@michonline.com>
# #
# GPL v2 (See COPYING) # GPL v2 (See COPYING)
# #
# Ported to support git "mbox" format files by Ryan Anderson <ryan@michonline.com> # Ported to support git "mbox" format files by Ryan Anderson <ryan@michonline.com>
# #
# Sends a collection of emails to the given email addresses, disturbingly fast. # Sends a collection of emails to the given email addresses, disturbingly fast.
# #
# Supports two formats: # Supports two formats:
# 1. mbox format files (ignoring most headers and MIME formatting - this is designed for sending patches) # 1. mbox format files (ignoring most headers and MIME formatting - this is designed for sending patches)
# 2. The original format support by Greg's script: # 2. The original format support by Greg's script:
# first line of the message is who to CC, # first line of the message is who to CC,
# and second line is the subject of the message. # and second line is the subject of the message.
# #
use strict; use strict;
use warnings; use warnings;
@ -83,7 +83,7 @@ if (!defined $from) {
if (!@to) { if (!@to) {
do { do {
$_ = $term->readline("Who should the emails be sent to? ", $_ = $term->readline("Who should the emails be sent to? ",
""); "");
} while (!defined $_); } while (!defined $_);
my $to = $_; my $to = $_;
@ -92,7 +92,7 @@ if (!@to) {
if (!defined $initial_subject) { if (!defined $initial_subject) {
do { do {
$_ = $term->readline("What subject should the emails start with? ", $_ = $term->readline("What subject should the emails start with? ",
$initial_subject); $initial_subject);
} while (!defined $_); } while (!defined $_);
$initial_subject = $_; $initial_subject = $_;
@ -100,7 +100,7 @@ if (!defined $initial_subject) {
if (!defined $initial_reply_to) { if (!defined $initial_reply_to) {
do { do {
$_= $term->readline("Message-ID to be used as In-Reply-To? ", $_= $term->readline("Message-ID to be used as In-Reply-To? ",
$initial_reply_to); $initial_reply_to);
} while (!defined $_); } while (!defined $_);
@ -119,7 +119,7 @@ for my $f (@ARGV) {
opendir(DH,$f) opendir(DH,$f)
or die "Failed to opendir $f: $!"; or die "Failed to opendir $f: $!";
push @files, grep { -f $_ } map { +$f . "/" . $_ } push @files, grep { -f $_ } map { +$f . "/" . $_ }
sort readdir(DH); sort readdir(DH);
} elsif (-f $f) { } elsif (-f $f) {
@ -137,12 +137,12 @@ if (@files) {
git-send-email-script [options] <file | directory> [... file | directory ] git-send-email-script [options] <file | directory> [... file | directory ]
Options: Options:
--from Specify the "From:" line of the email to be sent. --from Specify the "From:" line of the email to be sent.
--to Specify the primary "To:" line of the email. --to Specify the primary "To:" line of the email.
--subject Specify the initial "Subject:" line. --subject Specify the initial "Subject:" line.
--in-reply-to Specify the first "In-Reply-To:" header line. --in-reply-to Specify the first "In-Reply-To:" header line.
--chain-reply-to If set, the replies will all be to the previous --chain-reply-to If set, the replies will all be to the previous
email sent, rather than to the first email sent. email sent, rather than to the first email sent.
Defaults to on. Defaults to on.
--smtp-server If set, specifies the outgoing SMTP server to use. --smtp-server If set, specifies the outgoing SMTP server to use.
Defaults to localhost. Defaults to localhost.
@ -249,7 +249,7 @@ foreach my $t (@files) {
$subject = $_; $subject = $_;
} }
} }
# A whitespace line will terminate the headers # A whitespace line will terminate the headers
if (m/^\s*$/) { if (m/^\s*$/) {
$header_done = 1; $header_done = 1;
@ -276,7 +276,6 @@ foreach my $t (@files) {
$reply_to = $message_id; $reply_to = $message_id;
} }
make_message_id(); make_message_id();
# $subject = "Re: ".$initial_subject;
} }
@ -291,6 +290,3 @@ sub unique_email_list(@) {
} }
return @emails; return @emails;
} }