Merge branch 'kb/send-email-fifo'

* kb/send-email-fifo:
git-send-email: Accept fifos as well as files

diff --combined git-send-email.perl
index edb12c2aaaa64a13d0c59f8432d2ddd7d1cf75bd,16d437526afd9fe0cf7318d35bc40059522bd636..a047b016e34c995152a05318dd322f49cb23f57e
--- 1/git-send-email.perl
--- 2/git-send-email.perl
+++ b/git-send-email.perl
@@@ -84,10 -84,7 +84,10 @@@ Options
  
     --smtp-pass    The password for SMTP-AUTH.
  
 -   --smtp-ssl     If set, connects to the SMTP server using SSL.
 +   --smtp-encryption Specify 'tls' for STARTTLS encryption, or 'ssl' for SSL.
 +                  Any other value disables the feature.
 +
 +   --smtp-ssl     Synonym for '--smtp-encryption=ssl'.  Deprecated.
  
     --suppress-cc  Suppress the specified category of auto-CC.  The category
                  can be one of 'author' for the patch author, 'self' to
@@@ -187,7 -184,7 +187,7 @@@ my ($quiet, $dry_run) = (0, 0)
  
  # Variables with corresponding config settings
  my ($thread, $chain_reply_to, $suppress_from, $signed_off_cc, $cc_cmd);
 -my ($smtp_server, $smtp_server_port, $smtp_authuser, $smtp_ssl);
 +my ($smtp_server, $smtp_server_port, $smtp_authuser, $smtp_encryption);
  my ($identity, $aliasfiletype, @alias_files, @smtp_host_parts);
  my ($no_validate);
  my (@suppress_cc);
@@@ -197,6 -194,7 +197,6 @@@ my %config_bool_settings = 
      "chainreplyto" => [\$chain_reply_to, 1],
      "suppressfrom" => [\$suppress_from, undef],
      "signedoffcc" => [\$signed_off_cc, undef],
 -    "smtpssl" => [\$smtp_ssl, 0],
  );
  
  my %config_settings = (
@@@ -251,8 -249,7 +251,8 @@@ my $rc = GetOptions("sender|from=s" => 
                    "smtp-server-port=s" => \$smtp_server_port,
                    "smtp-user=s" => \$smtp_authuser,
                    "smtp-pass:s" => \$smtp_authpass,
 -                  "smtp-ssl!" => \$smtp_ssl,
 +                  "smtp-ssl" => sub { $smtp_encryption = 'ssl' },
 +                  "smtp-encryption=s" => \$smtp_encryption,
                    "identity=s" => \$identity,
                    "compose" => \$compose,
                    "quiet" => \$quiet,
@@@ -292,15 -289,6 +292,15 @@@ sub read_config 
                        $$target = Git::config(@repo, "$prefix.$setting") unless (defined $$target);
                }
        }
 +
 +      if (!defined $smtp_encryption) {
 +              my $enc = Git::config(@repo, "$prefix.smtpencryption");
 +              if (defined $enc) {
 +                      $smtp_encryption = $enc;
 +              } elsif (Git::config_bool(@repo, "$prefix.smtpssl")) {
 +                      $smtp_encryption = 'ssl';
 +              }
 +      }
  }
  
  # read configuration from [sendemail "$identity"], fall back on [sendemail]
@@@ -313,9 -301,6 +313,9 @@@ foreach my $setting (values %config_boo
        ${$setting->[0]} = $setting->[1] unless (defined (${$setting->[0]}));
  }
  
 +# 'default' encryption is none -- this only prevents a warning
 +$smtp_encryption = '' unless (defined $smtp_encryption);
 +
  # Set CC suppressions
  my(%suppress_cc);
  if (@suppress_cc) {
@@@ -408,7 -393,7 +408,7 @@@ for my $f (@ARGV) 
                push @files, grep { -f $_ } map { +$f . "/" . $_ }
                                sort readdir(DH);
  
-       } elsif (-f $f) {
+       } elsif (-f $f or -p $f) {
                push @files, $f;
  
        } else {
@@@ -418,8 -403,10 +418,10 @@@
  
  if (!$no_validate) {
        foreach my $f (@files) {
-               my $error = validate_patch($f);
-               $error and die "fatal: $f: $error\nwarning: no patches were sent\n";
+               unless (-p $f) {
+                       my $error = validate_patch($f);
+                       $error and die "fatal: $f: $error\nwarning: no patches were sent\n";
+               }
        }
  }
  
@@@ -753,7 -740,7 +755,7 @@@ X-Mailer: git-send-email $gitversio
                        die "The required SMTP server is not properly defined."
                }
  
 -              if ($smtp_ssl) {
 +              if ($smtp_encryption eq 'ssl') {
                        $smtp_server_port ||= 465; # ssmtp
                        require Net::SMTP::SSL;
                        $smtp ||= Net::SMTP::SSL->new($smtp_server, Port => $smtp_server_port);
@@@ -763,17 -750,6 +765,17 @@@
                        $smtp ||= Net::SMTP->new((defined $smtp_server_port)
                                                 ? "$smtp_server:$smtp_server_port"
                                                 : $smtp_server);
 +                      if ($smtp_encryption eq 'tls') {
 +                              require Net::SMTP::SSL;
 +                              $smtp->command('STARTTLS');
 +                              $smtp->response();
 +                              if ($smtp->code == 220) {
 +                                      $smtp = Net::SMTP::SSL->start_SSL($smtp)
 +                                              or die "STARTTLS failed! ".$smtp->message;
 +                              } else {
 +                                      die "Server does not support STARTTLS! ".$smtp->message;
 +                              }
 +                      }
                }
  
                if (!$smtp) {