X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=git-send-email.perl;h=76baa8e431e082c1e36eb9c78125094de0b8a85e;hb=4eb39e9bcccc54eb23af8a7e2676c63e5bf32866;hp=9c6fa6441a0e58abb4a212bce1dc6951683c213e;hpb=d794d9e70ebb8c767b04f25c03290ef305cd31ab;p=git.git

diff --git a/git-send-email.perl b/git-send-email.perl
index 9c6fa6441..76baa8e43 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -145,6 +145,7 @@ sub format_2822_time {
 
 my $have_email_valid = eval { require Email::Valid; 1 };
 my $smtp;
+my $auth;
 
 sub unique_email_list(@);
 sub cleanup_compose_files();
@@ -635,7 +636,7 @@ X-Mailer: git-send-email $gitversion
 		}
 
 		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;