[Bps-public-commit] r9400 - in Net-Server-IMAP: lib/Net/Server/IMAP

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Oct 22 16:08:30 2007
New Revision: 9400

Modified:
   Net-Server-IMAP/   (props changed)
   Net-Server-IMAP/lib/Net/Server/IMAP/Mailbox.pm

Log:
 r23803 at zoq-fot-pik:  chmrr | 2007-10-22 16:05:28 -0400
  * ->unseen should be with the working


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Mailbox.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Mailbox.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Mailbox.pm	Mon Oct 22 16:08:30 2007
@@ -170,7 +170,7 @@
 
 sub unseen {
     my $self = shift;
-    return undef;
+    return scalar grep {not $_->has_flag('\Seen')} @{$self->messages};
 }
 
 sub permanentflags {