Next Trivial Utilities 67

sortby

     $FOLDER = MH::current_folder() unless defined $FOLDER;
     my %field;
     my $N = my @old_order = sort {$a <=> $b} MH::message_list($FOLDER);
     for my $mn (@old_order) {
       my $msg = MH::header($mn, $FOLDER);
       $field{$mn} = $msg->get($FIELD);
     }
     my @new_order = sort comparator @old_order;



Next Menu Copyright © 2012 M. J. Dominus