X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl%2FService.pm;h=f3e3bd06937412504c2ecad8ec897dd92ed21aa3;hb=2adcb0be76a7d4dccef79f27e4b73e6b9560e487;hp=52d7d10dab6f14aa3794c42a8dde0e728140ebef;hpb=f14350af3adf35feb4f3b628ffa9b13bc6f8d05a;p=debbugs.git

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 52d7d10..f3e3bd0 100644
--- a/Debbugs/Control/Service.pm
+++ b/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++;
 	}