diff -urp imapsync-1.255.orig/imapsync imapsync-1.255/imapsync
--- imapsync-1.255.orig/imapsync	2008-06-24 18:38:58.000000000 +0200
+++ imapsync-1.255/imapsync	2008-08-08 10:55:51.000000000 +0200
@@ -489,8 +489,8 @@ $VERSION = ($1) ? $1 : "UNKNOWN";
 
 my $VERSION_IMAPClient = $Mail::IMAPClient::VERSION;
 
-check_lib_version() or 
-  die "imapsync needs perl lib Mail::IMAPClient release 2.2.9 exactly, future imapsync release may suppoort 3.0.x, but sorry not now. See file BUG_IMAPClient_3.xx\n";
+#check_lib_version() or 
+#  warn "There are known problems in versions of Mail::IMAPClient more recent than 2.2.9 (Yours is $VERSION_IMAPClient). Please see file BUG_IMAPClient_3.xx";
 
 
 $mess_size_total_trans   = 0;
@@ -749,7 +749,9 @@ sub login_imap {
 	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
 
 	$imap->User($user);
-	$imap->Authuser($authuser);
+	# Newer Mail::IMAPClient (3.08) provides Authuser, use compat stub if it fails
+	eval { $imap->Authuser($authuser) };
+	$imap->Authuser_compat($authuser) if $@;
 	$imap->Password($password);
 	unless ($imap->login()) {
 		print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
@@ -2561,7 +2563,7 @@ use constant NonFolderArg => 1;         
 package Mail::IMAPClient;
 
 
-sub Authuser {
+sub Authuser_compat {
 	my $self = shift;
 	
 	if (@_) { $self->{AUTHUSER} = shift }