- $cmd = [ "$cmd_pfx-edit", "-m$mid", $mainrepo ];
- ok(run($cmd, \$in, \$out, \$err), "$t succeeds");
+ $cmd = [ '-edit', "-m$mid", $inboxdir ];
+ ok(run_script($cmd, undef, $opt), "$t succeeds");
+ my $prev = $cur;
+ $cur = PublicInbox::Eml->new($ibx->msg_by_mid($mid));
+ is_deeply($cur, $prev, "$t makes no change");
+ like($cur->header('Subject'), qr/boolean prefix/,
+ "$t does not change message");
+ like($out, qr/NONE/, 'noop shows NONE');
+ my $after = $git->qx(qw(rev-parse HEAD));
+ is($after, $before, 'git head unchanged');
+}
+
+$t = 'no-op -m MESSAGE_ID w/Status: header'; { # because mutt does it
+ $in = $out = $err = '';
+ my $before = $git->qx(qw(rev-parse HEAD));
+ local $ENV{MAIL_EDITOR} = "$^X -i -p -e 's/^Subject:.*/Status: RO\\n\$&/'";
+ $cmd = [ '-edit', "-m$mid", $inboxdir ];
+ ok(run_script($cmd, undef, $opt), "$t succeeds");