diff --git a/git-send-email.perl b/git-send-email.perl
index 9c6fa6441a0e58abb4a212bce1dc6951683c213e..76baa8e431e082c1e36eb9c78125094de0b8a85e 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
my $have_email_valid = eval { require Email::Valid; 1 };
my $smtp;
+my $auth;
sub unique_email_list(@);
sub cleanup_compose_files();
}
if ((defined $smtp_authuser) && (defined $smtp_authpass)) {
- $smtp->auth( $smtp_authuser, $smtp_authpass ) or die $smtp->message;
+ $auth ||= $smtp->auth( $smtp_authuser, $smtp_authpass ) or die $smtp->message;
}
$smtp->mail( $raw_from ) or die $smtp->message;
$smtp->to( @recipients ) or die $smtp->message;