Merge branch 'master' into next
* master: send-email: only 'require' instead of 'use' Net::SMTP Allow multiple -m options to git-commit.
This commit is contained in:
@ -260,20 +260,41 @@ do
|
|||||||
-m|--m|--me|--mes|--mess|--messa|--messag|--message)
|
-m|--m|--me|--mes|--mess|--messa|--messag|--message)
|
||||||
case "$#" in 1) usage ;; esac
|
case "$#" in 1) usage ;; esac
|
||||||
shift
|
shift
|
||||||
log_given=t$log_given
|
log_given=m$log_given
|
||||||
|
if test "$log_message" = ''
|
||||||
|
then
|
||||||
log_message="$1"
|
log_message="$1"
|
||||||
|
else
|
||||||
|
log_message="$log_message
|
||||||
|
|
||||||
|
$1"
|
||||||
|
fi
|
||||||
no_edit=t
|
no_edit=t
|
||||||
shift
|
shift
|
||||||
;;
|
;;
|
||||||
-m*)
|
-m*)
|
||||||
log_given=t$log_given
|
log_given=m$log_given
|
||||||
|
if test "$log_message" = ''
|
||||||
|
then
|
||||||
log_message=`expr "$1" : '-m\(.*\)'`
|
log_message=`expr "$1" : '-m\(.*\)'`
|
||||||
|
else
|
||||||
|
log_message="$log_message
|
||||||
|
|
||||||
|
`expr "$1" : '-m\(.*\)'`"
|
||||||
|
fi
|
||||||
no_edit=t
|
no_edit=t
|
||||||
shift
|
shift
|
||||||
;;
|
;;
|
||||||
--m=*|--me=*|--mes=*|--mess=*|--messa=*|--messag=*|--message=*)
|
--m=*|--me=*|--mes=*|--mess=*|--messa=*|--messag=*|--message=*)
|
||||||
log_given=t$log_given
|
log_given=m$log_given
|
||||||
|
if test "$log_message" = ''
|
||||||
|
then
|
||||||
log_message=`expr "$1" : '-[^=]*=\(.*\)'`
|
log_message=`expr "$1" : '-[^=]*=\(.*\)'`
|
||||||
|
else
|
||||||
|
log_message="$log_message
|
||||||
|
|
||||||
|
`expr "$1" : '-[^=]*=\(.*\)'`"
|
||||||
|
fi
|
||||||
no_edit=t
|
no_edit=t
|
||||||
shift
|
shift
|
||||||
;;
|
;;
|
||||||
@ -378,7 +399,9 @@ esac
|
|||||||
|
|
||||||
case "$log_given" in
|
case "$log_given" in
|
||||||
tt*)
|
tt*)
|
||||||
die "Only one of -c/-C/-F/-m can be used." ;;
|
die "Only one of -c/-C/-F can be used." ;;
|
||||||
|
*tm*|*mt*)
|
||||||
|
die "Option -m cannot be combined with -c/-C/-F." ;;
|
||||||
esac
|
esac
|
||||||
|
|
||||||
case "$#,$also,$only,$amend" in
|
case "$#,$also,$only,$amend" in
|
||||||
|
@ -21,7 +21,6 @@ use warnings;
|
|||||||
use Term::ReadLine;
|
use Term::ReadLine;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use Net::SMTP;
|
|
||||||
|
|
||||||
# most mail servers generate the Date: header, but not all...
|
# most mail servers generate the Date: header, but not all...
|
||||||
$ENV{LC_ALL} = 'C';
|
$ENV{LC_ALL} = 'C';
|
||||||
@ -394,6 +393,7 @@ X-Mailer: git-send-email $gitversion
|
|||||||
print $sm "$header\n$message";
|
print $sm "$header\n$message";
|
||||||
close $sm or die $?;
|
close $sm or die $?;
|
||||||
} else {
|
} else {
|
||||||
|
require Net::SMTP;
|
||||||
$smtp ||= Net::SMTP->new( $smtp_server );
|
$smtp ||= Net::SMTP->new( $smtp_server );
|
||||||
$smtp->mail( $from ) or die $smtp->message;
|
$smtp->mail( $from ) or die $smtp->message;
|
||||||
$smtp->to( @recipients ) or die $smtp->message;
|
$smtp->to( @recipients ) or die $smtp->message;
|
||||||
|
Reference in New Issue
Block a user