sha1_file: switch uses of SHA-1 to the_hash_algo

diff --git a/git-send-email.perl b/git-send-email.perl
index edcc6d34692b28575d9728c25a407782310a39fb..340b5c848294f6d58329b282fe5df72b8f5bbeed 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -30,6 +30,7 @@
 use Cwd qw(abs_path cwd);
 use Git;
 use Git::I18N;
+use Git::Mail::Address;
 
 Getopt::Long::Configure qw/ pass_through /;
 
@@ -489,7 +490,7 @@ sub read_config {
 ($repocommitter) = Git::ident_person(@repo, 'committer');
 
 sub parse_address_line {
-       return Git::parse_mailboxes($_[0]);
+       return map { $_->format } Mail::Address->parse($_[0]);
 }
 
 sub split_addrs {