mail: invalid message number accepted

* I exported a mailbox with 24 items in mbox format
* The maximum valid message id is 24, but a very long number is interpreted as 24
* Another long message id is rejected, so this made me scratch my head
* perl debugger shows that the invalid message number errors for 0, 25 and 1111111111 are from L842 in main::msg_print()
* mailbox::messagex() takes the very long message id and returns a valid message instead of undef
* mailbox::messagex() has a guard for negative array index, but does not guard against index past end of array
* Adding an index guard fixes the problem on my system

Author: mknos

bin/mail

@@ -473,6 +473,8 @@ sub messagex {
 	my $self=shift;
 	my $num=shift;
 	return if $num <= 0;
+	my $size = @{ $self->{'messages'} };
+	return if $num >= $size;
 	return(${$self->{messages}}[$num]);
 }
 sub replace {
@@ -640,7 +642,7 @@ use Getopt::Std;
 
 use vars qw($opt_f $opt_s $opt_c $opt_b $opt_v);
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 our $ROWS = 23;         # Screen Dimensions.  Yeah, this sucks.
 our $COLS = 80;
 our $BUFFERL = 2;	  # Lines needed for "fluff"