# it. This should be harmless.
mkfolder($mhfolder);
+ # XXX: Grab the 'mhpath new' algorithm and implement it internally.
$mhmsg = `mhpath +$mhfolder new`;
chomp($mhmsg);
$msgnum = basename($mhmsg);
err(&EX_TEMPFAIL, "Failed rename($msg, $mhmsg)");
}
+ # XXX: Lame! Instead, keep a hash of arrays. Keys are folder
+ # names, array elements are message numbers in that list.
+ # Then after all the messages have been sorted, run one mark
+ # command per folder, marking all messages for that folder in
+ # one sweep.
if ($mhfolder ne 'SPAM') {
$status = system("mark +$mhfolder $msgnum -sequence unseen -add");
if (not (WIFEXITED($status) and WEXITSTATUS($status) == 0)) {