more IMAP4 patchs

Hi,

spoted I few more imap4 related bugs.



Regards,

Raul Dias




diff -Nru Mail-Box-2.060_rsd/lib/Mail/Box/IMAP4/Message.pm
Mail-Box-2.060_rsd2/lib/Mail/Box/IMAP4/Message.pm
--- Mail-Box-2.060_rsd/lib/Mail/Box/IMAP4/Message.pm    2005-03-15
18:02:43.000000000 -0300
+++ Mail-Box-2.060_rsd2/lib/Mail/Box/IMAP4/Message.pm   2005-05-25
03:42:26.871310442 -0300
@@ -102,8 +102,8 @@

     unless(exists $labels->{seen})
     {   my $imap = $self->folder->transporter or return;
-        my %flags = $imap->getFlags($self->unique);
-        @{$labels}{keys %flags} = values %flags;
+        my $flags = $imap->getFlags($self->unique);
+        @{$labels}{keys %$flags} = values %$flags;
     }

     $labels;
diff -Nru Mail-Box-2.060_rsd/lib/Mail/Transport/IMAP4.pm
Mail-Box-2.060_rsd2/lib/Mail/Transport/IMAP4.pm
--- Mail-Box-2.060_rsd/lib/Mail/Transport/IMAP4.pm      2005-05-25
00:52:28.000000000 -0300
+++ Mail-Box-2.060_rsd2/lib/Mail/Transport/IMAP4.pm     2005-05-25
03:15:17.198295544 -0300
@@ -280,7 +280,7 @@

     # Add default values for missing flags
     foreach  my $s (values %flags2labels)
-    {   $labels->{$_->[0]} = not $_->[1] unless exists
$labels->{$_->[0]};
+    {   $labels->{$s->[0]} = not $s->[1] unless exists
$labels->{$s->[0]};
     }

     $labels;