X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=lib%2FDebbugs%2FControl%2FService.pm;fp=lib%2FDebbugs%2FControl%2FService.pm;h=f3e3bd06937412504c2ecad8ec897dd92ed21aa3;hp=52d7d10dab6f14aa3794c42a8dde0e728140ebef;hb=aca5afe9ba07638bfde9162e0d24e1b476308e27;hpb=6c4913e069f5bfbaa2d64055050fe73561bc3e49

diff --git a/lib/Debbugs/Control/Service.pm b/lib/Debbugs/Control/Service.pm
index 52d7d10..f3e3bd0 100644
--- a/lib/Debbugs/Control/Service.pm
+++ b/lib/Debbugs/Control/Service.pm
@@ -93,6 +93,7 @@ use Debbugs::Config qw(:config);
 use Debbugs::Common qw(cleanup_eval_fail);
 use Debbugs::Control qw(:all);
 use Debbugs::Status qw(splitpackages);
+use Debbugs::MIME qw(encode_rfc1522);
 use Params::Validate qw(:types validate_with);
 use List::AllUtils qw(first);
 
@@ -367,7 +368,7 @@ sub control_line {
     }
     elsif ($ctl eq 'submitter') {
 	my $newsubmitter = $matches[1] eq '!' ? $param{replyto} : $matches[1];
-        if (not Mail::RFC822::Address::valid($newsubmitter)) {
+        if (not Mail::RFC822::Address::valid(encode_rfc1522($newsubmitter))) {
 	     print {$transcript} "$newsubmitter is not a valid e-mail address; not changing submitter\n";
 	     $errors++;
 	}