Browse Source

Merge branch 'master' into next

* master:
  send-email: only 'require' instead of 'use' Net::SMTP
  Allow multiple -m options to git-commit.
maint
Junio C Hamano 19 years ago
parent
commit
5f625247ee
  1. 37
      git-commit.sh
  2. 2
      git-send-email.perl

37
git-commit.sh

@ -260,20 +260,41 @@ do @@ -260,20 +260,41 @@ do
-m|--m|--me|--mes|--mess|--messa|--messag|--message)
case "$#" in 1) usage ;; esac
shift
log_given=t$log_given
log_message="$1"
log_given=m$log_given
if test "$log_message" = ''
then
log_message="$1"
else
log_message="$log_message

$1"
fi
no_edit=t
shift
;;
-m*)
log_given=t$log_given
log_message=`expr "$1" : '-m\(.*\)'`
log_given=m$log_given
if test "$log_message" = ''
then
log_message=`expr "$1" : '-m\(.*\)'`
else
log_message="$log_message

`expr "$1" : '-m\(.*\)'`"
fi
no_edit=t
shift
;;
--m=*|--me=*|--mes=*|--mess=*|--messa=*|--messag=*|--message=*)
log_given=t$log_given
log_message=`expr "$1" : '-[^=]*=\(.*\)'`
log_given=m$log_given
if test "$log_message" = ''
then
log_message=`expr "$1" : '-[^=]*=\(.*\)'`
else
log_message="$log_message

`expr "$1" : '-[^=]*=\(.*\)'`"
fi
no_edit=t
shift
;;
@ -378,7 +399,9 @@ esac @@ -378,7 +399,9 @@ esac

case "$log_given" in
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

case "$#,$also,$only,$amend" in

2
git-send-email.perl

@ -21,7 +21,6 @@ use warnings; @@ -21,7 +21,6 @@ use warnings;
use Term::ReadLine;
use Getopt::Long;
use Data::Dumper;
use Net::SMTP;

# most mail servers generate the Date: header, but not all...
$ENV{LC_ALL} = 'C';
@ -394,6 +393,7 @@ X-Mailer: git-send-email $gitversion @@ -394,6 +393,7 @@ X-Mailer: git-send-email $gitversion
print $sm "$header\n$message";
close $sm or die $?;
} else {
require Net::SMTP;
$smtp ||= Net::SMTP->new( $smtp_server );
$smtp->mail( $from ) or die $smtp->message;
$smtp->to( @recipients ) or die $smtp->message;

Loading…
Cancel
Save