From 966e4263267560dedc147da6477cdd75ea0430b7 Mon Sep 17 00:00:00 2001 From: Dan Keder Date: Thu, 22 Oct 2009 13:56:12 +0200 Subject: [PATCH] Fixed a bug: UID COPY sent tagged OK response 2x. --- lib/Net/IMAP/Server/Command/Uid.pm | 2 -- 1 files changed, 0 insertions(+), 2 deletions(-) diff --git a/lib/Net/IMAP/Server/Command/Uid.pm b/lib/Net/IMAP/Server/Command/Uid.pm index eb5859f..6a5266e 100644 --- a/lib/Net/IMAP/Server/Command/Uid.pm +++ b/lib/Net/IMAP/Server/Command/Uid.pm @@ -105,8 +105,6 @@ sub copy { my $sequence = join(",",map {$_->uid} @messages); my $uids = join(",",map {$_->uid} @new); $self->ok_command("[COPYUID @{[$mailbox->uidvalidity]} $sequence $uids] COPY COMPLETED"); - - $self->ok_completed; } sub expunge { -- 1.5.3.3