aboutsummaryrefslogtreecommitdiff
path: root/git-send-email.perl
diff options
context:
space:
mode:
authorBill Pemberton <wfp5p@virginia.edu>2009-04-22 09:41:29 -0400
committerJunio C Hamano <gitster@pobox.com>2009-04-22 19:10:41 -0700
commit7613ea3595f3a56f0f9d827944775940f1e72ef6 (patch)
tree7dc2f2967eb657416e1ea3e7c698cc7989b0eebd /git-send-email.perl
parent7bd93c1c625ce5fa03f0d13d728f34f8ab868991 (diff)
downloadgit-7613ea3595f3a56f0f9d827944775940f1e72ef6.tar.gz
git-7613ea3595f3a56f0f9d827944775940f1e72ef6.tar.xz
Add parsing of elm aliases to git-send-email
elm stores a text file version of the aliases that is <alias> = <comment> = <email address> This adds the parsing of this file to git-send-email Signed-off-by: Bill Pemberton <wfp5p@virginia.edu> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'git-send-email.perl')
-rwxr-xr-xgit-send-email.perl8
1 files changed, 8 insertions, 0 deletions
diff --git a/git-send-email.perl b/git-send-email.perl
index 172b53c2d..cccbf4517 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -418,6 +418,14 @@ my %parse_alias = (
$x =~ /^(\S+)$f\t\(?([^\t]+?)\)?(:?$f){0,2}$/ or next;
$aliases{$1} = [ split_addrs($2) ];
}},
+ elm => sub { my $fh = shift;
+ while (<$fh>) {
+ if (/^(\S+)\s+=\s+[^=]+=\s(\S+)/) {
+ my ($alias, $addr) = ($1, $2);
+ $aliases{$alias} = [ split_addrs($addr) ];
+ }
+ } },
+
gnus => sub { my $fh = shift; while (<$fh>) {
if (/\(define-mail-alias\s+"(\S+?)"\s+"(\S+?)"\)/) {
$aliases{$1} = [ $2 ];