[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.21-2-gfa67fc7

[Alex M Vandiver]

The branch, master has been updated
       via  fa67fc7f227bc4023b89a2633d37f2775f6854ae (commit)
      from  51ce8242d2e29fcb57d75badfbe2f60934e64a39 (commit)

Summary of changes:
 lib/Net/IMAP/Server/Command/Uid.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit fa67fc7f227bc4023b89a2633d37f2775f6854ae
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Jul 13 12:12:35 2009 -0400

    Net::IMAP::Server::Command::UID still contained a reference to untagged_fetch
    
    Spotted by Jan Dvořák <jdvorak at uikt.mendelu.cz>

diff --git a/lib/Net/IMAP/Server/Command/Uid.pm b/lib/Net/IMAP/Server/Command/Uid.pm
index 7874c91..eb5859f 100644
--- a/lib/Net/IMAP/Server/Command/Uid.pm
+++ b/lib/Net/IMAP/Server/Command/Uid.pm
@@ -74,7 +74,7 @@ sub store {
     $self->connection->ignore_flags(1) if $what =~ /\.SILENT$/i;
     for my $m (@messages) {
         $m->store( $what => $flags );
-        $self->connection->untagged_fetch->{$self->connection->sequence($m)}{UID}++
+        $self->connection->_unsent_fetch->{$self->connection->sequence($m)}{UID}++
           unless $what =~ /\.SILENT$/i;
         cede;
     }

-----------------------------------------------------------------------