From: Brilliantov Kirill Vladimirovich Date: Sat, 25 Jan 2014 09:46:50 GMT Subject: [PATCH] Added get sendmail from .mailrc Message-ID: <1390643210-5748-1-git-send-email-brilliantov@inbox.ru> Signed-off-by: Brilliantov Kirill Vladimirovich --- git-send-email.perl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/git-send-email.perl b/git-send-email.perl index 2016d9c..5345fdb 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -28,6 +28,7 @@ use File::Temp qw/ tempdir tempfile /; use File::Spec::Functions qw(catfile); use Error qw(:try); use Git; +use File::HomeDir; Getopt::Long::Configure qw/ pass_through /; @@ -804,6 +805,23 @@ if (!defined $smtp_server) { last; } } + + if (!defined $smtp_server) { + my $mailrc = File::HomeDir->my_home . "/.mailrc"; + if (-e $mailrc) { + open FILE, $mailrc or die "Failed open $mailrc: $!"; + while () { + chomp; + if (/set sendmail=.*/) { + my @data = split '"'; + $smtp_server = $data[1]; + last; + } + } + close FILE; + } + } + $smtp_server ||= 'localhost'; # could be 127.0.0.1, too... *shrug* } -- 1.8.5.2