____SNIP____
 diff -u /usr/local/share/perl/5.6.1/Mail/IMAPClient.pm  IMAPClient.pm
--- /usr/local/share/perl/5.6.1/Mail/IMAPClient.pm      Wed Apr 30
13:12:47 2003
+++ IMAPClient.pm       Wed Apr 30 10:39:52 2003
@@ -751,7 +751,7 @@
                # transaction:
                if ( $size <=3D $bufferSize ) {
                        my $new_mid =3D
$peer->append_string($peer->Massage($folder),
-                                       $self->message_string($mid) ,
$flags,
+                                       $self->message_string($mid)
,undef,
                                        $intDate) ;
                        $self->_debug("Copied message $mid in folder
$folder to " .
                                    $peer->User .

____SNIP____