undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

send-email: Fix Pine address book parsing

Browse Source 
See:  http://www.washington.edu/pine/tech-notes/low-level.html

Entries with a fcc or comment field after the address weren't parsed
correctly.

Continuation lines, identified by leading spaces, were also not handled.

Distribution lists which had ( ) around a list of addresses did not have
the parenthesis removed.

Signed-off-by: Trent Piepho <tpiepho@freescale.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Trent Piepho 2008-11-25 18:55:00 -08:00 committed by Junio C Hamano
parent f20706220b
commit 73c427eb99
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
git-send-email.perl
View File

@ -345,10 +345,13 @@ my %parse_alias = (
# spaces delimit multiple addresses # spaces delimit multiple addresses
$aliases{$1} = [ split(/\s+/, $2) ]; $aliases{$1} = [ split(/\s+/, $2) ];
}}}, }}},
pine => sub { my $fh = shift; while (<$fh>) { pine => sub { my $fh = shift; my $f='\t[^\t]*';
if (/^(\S+)\t.*\t(.*)$/) { for (my $x = ''; defined($x); $x = $_) {
chomp $x;
$x .= $1 while(defined($_ = <$fh>) && /^ +(.*)$/);
$x =~ /^(\S+)$f\t\(?([^\t]+?)\)?(:?$f){0,2}$/ or next;
$aliases{$1} = [ split(/\s*,\s*/, $2) ]; $aliases{$1} = [ split(/\s*,\s*/, $2) ];
}}}, }},
gnus => sub { my $fh = shift; while (<$fh>) { gnus => sub { my $fh = shift; while (<$fh>) {
if (/\(define-mail-alias\s+"(\S+?)"\s+"(\S+?)"\)/) { if (/\(define-mail-alias\s+"(\S+?)"\s+"(\S+?)"\)/) {
$aliases{$1} = [ $2 ]; $aliases{$1} = [ $2 ];