diff --git a/git-send-email.perl b/git-send-email.perl
index 172b53c2d5b8ccad6a1bee592bccbe27d8f3127c..cccbf4517aa46d4d217a1ce25105f7c413301d2d 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
$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 ];