From c1f6efe5ea06113dd07011fb796e2b883ae0a456 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Fri, 30 May 2008 18:27:20 +0000
Subject: [PATCH] Handle IMAP passwords with \ in them

---
 mailboxes/folders-lib.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mailboxes/folders-lib.pl b/mailboxes/folders-lib.pl
index f35762a6c..283df9bd0 100644
--- a/mailboxes/folders-lib.pl
+++ b/mailboxes/folders-lib.pl
@@ -1894,7 +1894,10 @@ if (!$h) {
 	@rv = &imap_command($h);
 	return (0, $rv[3]) if (!$rv[0]);
 	local $user = $_[0]->{'user'} eq '*' ? $remote_user : $_[0]->{'user'};
-	@rv = &imap_command($h,"login \"$user\" \"$_[0]->{'pass'}\"");
+	local $pass = $_[0]->{'pass'};
+	$pass =~ s/\\/\\\\/g;
+	$pass =~ s/"/\\"/g;
+	@rv = &imap_command($h,"login \"$user\" \"$pass\"");
 	return (2, $rv[3]) if (!$rv[0]);
 
 	$imap_login_handle{$_[0]->{'id'}} = $h;