756     # Get the "+ Go ahead" response:
757     my $code = 0;
758     until($code eq '+' || $code =~ /NO|BAD|OK/)
759     {
760          my $readSoFar  = 0;
761          my $fromBuffer = '';;
762          $readSoFar += sysread($toSock, $fromBuffer, 1, $readSoFar) || 0
763              until $fromBuffer =~ /\r\n/;
764
765          $code = $fromBuffer =~ /^\+/ ? $1
766                : $fromBuffer =~ / ^(?:\d+\s(BAD|NO))/ ? $1 : 0;
767
768          $peer->_debug("$folder: received $fromBuffer from server");
769
770          # ... and log it in the history buffers
771          $self->_record($trans, [0, "OUTPUT",
772            "Mail::IMAPClient migrating message $mid to $peer->User\@$peer->Server"] );
773          $peer->_record($ptrans, [0, "OUTPUT", $fromBuffer] );
774     }