Lines Matching full:email

35 # - a person might change organisations, and so their email address changes
50 # can't just be _anything_. The name or email still has to match something seen
59 # the display version. We use this slug to update two maps, one of email->name,
60 # the other of name->email.
65 # the name or the email address match the commit author (by slug). This is
67 # email on the same commit (usually a Github noreply), while avoiding every
76 # emails. This collection is every possible name and email for an individual
79 # Finaly, we consider these groups, and select the "best" name and email for
96 # Storage for the "best looking" version of name or email, keyed on slug.
102 # we extract name,email pairs from the remainder and store them in a pair of
116 		my ($name, $email) = $line =~ m/^\s+(.+)(?= <) <([^>]+)/;
119 		my $semail = email_slug($email);
125 		# The name/email in AUTHORS is already the "best looking"
128 		$display_email{$semail} = $email;
132 # Next, we load all the commit authors and signoff pairs, and form name<->email
139 # The true email address from commits, by slug. We do this so we can generate
148 	my ($name, $email, @signoffs) = split ':::', $line;
149 	next unless $name && $email;
151 	my $semail = email_slug($email);
154 	# Track the committer name and email.
159 	$commit_email{$semail} = $email;
163 	update_display_email($email);
165 	# Check signoffs. any that have a matching name or email as the
195 		while (my $email = shift @check_emails) {
196 			next if $emails{$email}++;
198 			    sort keys %{delete $seen_names{$email}};
219 	# Decide on the "best" name and email to use
220 	my $email = best_email(@$emails);
223 	$authors_email{$name} = $email;
224 	$authors_name{$email} = $name;
231 		next if $alias eq $email;
254 # to make upper and lower-case versions of a name or email compare the same,
268 	my ($email) = @_;
272 	$email =~ s/^(.*\s+)|(\s+.*)$//g;
276 	$email =~ s/^[^\+]*\+//g if $email =~ m/\.noreply\.github\.com$/;
278 	return lc $email;
307 	my ($email) = @_;
308 	my $semail = email_slug($email);
314 	$email =~ s/^[^\+]*\+//g if $email =~ m/\.noreply\.github\.com$/;
318 	    ($email =~ tr/a-z //) < ($cemail =~ tr/a-z //)) {
319 		$display_email{$semail} = $email;